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IN SINCRONISMO 






UN SINCRONISMO PERFETTO NON SI IM¬ 
PROVVISA! È il frutto di ricerca e applicazio¬ 
ne assidua. I nuovi supporti magnetici FUJI 
sono il risultato di tecnologie avanzatissime 
e di assidui sforzi di ricerca e sviluppo. I mi¬ 
croscopici dipoli magnetici sono distribuiti 
con uniformità sul supporto secondo una 
struttura tridimensionale sviluppata da FUJI 
in modo esclusivo. E le prestazioni eccedono 
di gran lunga quelle dei “floppy” tradizionali 
finora utilizzati. Il sincronismo perfetto tra te¬ 
stine magnetiche e traccia, e le tracce garan¬ 
tite “error free” al 100%, eliminano ogni ri¬ 
schio di errore. Alla precisione di lavoro con¬ 
tribuisce il particolare trattamento del sup¬ 
porto, che previene il deposito di polveri sul¬ 
la testina. E uno speciale involucro protegge 
il supporto contro urti, polvere e sbalzi termi¬ 
ci, per prolungarne la durata nel tempo. ■ 




C.B.S. CONTROL BYTE SYSTEM 
Via Comelico, n. 3 - 20135 Milano 
Telefoni: 580051-5464060-5451108 
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Tutti pittori col computer, pagina 18 


Buon ProDos ti faccia 

Vi occorre più memoria? Con il nuovo sistema operativo 
ProDos, il profile e il mouse sarà possibile ottenere 
maggiore velocità, nuovi comandi, 5 Mb di memoria e... 


Computer e pennello 

Con l’Apple pittore diventa possibile realizzare sullo 
schermo capolavori di pittura, ottenendo effetti speciali di 
grande impatto visivo. 


Topolino dà i numeri 

Per insegnare ai bambini a riconoscere i numeri l’eroe di 
Walt Disney diventa protagonista di Otto volante, un 
tutorial-gioco che piacerà anche ai grandi. 
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Programmi top secret 

PirataTLocksmith 5, Wildcard: non c’è protezione che 
renda incopiabile un programma. Si può però impedire ai 
curiosi di ficcare il naso in programmi che... 


Una cassetta di salvataggio 

Registrare su nastro una copia dei programmi più 
importanti significa risparmiare tempo e denaro, bisogna 
però tener presente che... 


Qui la grafica è animata 

Nella sesta puntata dell’Applesoft si svelano tutti i segreti 
della grafica, per la visualizzazione a bassa e ad alta 
risoluzione. 


Tipi e variabili 

In questa terza puntata del corso troverete tutte le 
informazioni per gestire il video e la tastiera. Soprattutto 
Pascal vi insegna a non sbagliare. 


La canzone la trovi sul dischetto 

Un disc-jockey infallibile che tiene sotto controllo tutta la 
vostra collezione di long-playing e di nastri gestendo più di 
300 titoli su un unico floppy. 


Un aiuto a prova d’errore 
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In pochi secondi u programma Aiuto consente di 
individuare gli errori di battitura, permettendovi di 
correggerli subito e tutti insieme. 
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Tutti i diritti di riproduzione e traduzio¬ 
ne di testi, articoli, progetti, illustra¬ 
zioni, disegni, listati di programmi, fo¬ 
tografie ecc., sono riservati a termini 
di legge. I programmi pubblicati su 
Applicando possono essere utilizzati 
per scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfruttamenti 
e utilizzazioni commerciali. I mano¬ 
scritti, i disegni, le foto anche se non 
pubblicati, non si restituiscono. 
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UNIONE STAMPA 
PERIODICA ITALIANA 


Dipingere col computer? Perchè no? In commercio 
sono ormai numerosi i programmi che, in cambio di 
svariate decine di migliaia di lire, promettono di 
introdurre alle meraviglie della computer art. Il 
listato che pubblichiamo su questo nume! o di 
Applicando ha il vantaggio di non costar nulla a chi è 
già abbonato, e di costar pochissimo (1' equivalente 
di due pacchetti e mezzo di sigarette) a chi non lo è 
ancora. 

Ma naturalmente Applicando non offre solo questo. 
C'è per esempio il programma che consente di fare il 
bacK-up su cassetta dei propri programmi e dei 
propri dati: anche se chi ha un Apple storce 
giustamente il naso all'idea di usare un registratore 
invece del floppy, resta il fatto che le cassette sono 
più economiche dei dischetti, e per il back-up vanno 
benissimo... 

E c'è poi, fra 1' altro, Aiuto, una utility per 
programmatori, che aiuta davvero nella ricerca degli 
errori involontariamente commessi nella stesura di 
un programma. 

Inutile segnalare le puntate dei tutorial di 
Applesoft e di Pascal che stiamo pubblicando: le 
lettere che arrivano in redazione li indicano come 
seguitissimi e apprezzati. E abbia pazienza ancora un 
poco chi giustamente scrive che le puntate su un 
bimestrale sono troppo lontane 1' una dall'altra: da 
ottobre Applicando sarà mensile. 



P.S. Stanno per uscire le Paciine del Software per 
Apple : saranno pubblicate ai primissimi di 
settembre. Chi non vuol perdersi questo 
insostituibile catalogo ragionato di tutti i programmi 
per Apple disponibili in Italia, lo prenoti presso il 
suo Computer-shop, o lo chieda direttamente a 
Editronica Srl con il tagliando che troverà in questo 
numero a pagina 38, o approfitti dell' offerta 
speciale abbonamento di pagina 5i. 























Cento teste 
per Lisa 

Si può trasformare Lisa 2 
in un multi terminale? È pos¬ 
sibile con il nuovo sistema 
operativo realizzato dalla 
Microsoft. Si tratta dello 
Xenix Release III, una im¬ 
plementazione del sistema 
III di Unix, sviluppato dalla 
Bell Laboratories e fornito 
su licenza della Atet. Lo Xe¬ 
nix continua a garantire la 
portabilità, la flessibilità, la 
modularità e la potenza del¬ 
lo Unix, pur presentando 
modifiche significative quali 
il bloccaggio dei file e dei 
record, la condivisione dei 
dati, il recovery automatico 
dei file e la possibilità di ve¬ 
rifiche dell’integrità dei file 
stessi. 

Questo sistema operativo 
comprende più di 200 pro¬ 
grammi e Utilities ed è distri¬ 
buito in Italia, su licenza 
della Santa Cruz, dalla Sws, 
via Monte Zebio 28, Roma. 
«Piuttosto che un unico pro¬ 
gramma di grosse dimensio¬ 
ni», dice Franco Sensi, am¬ 
ministratore delegato della 
Sws, «l’architettura dello 
Xenix adotta l’uso di una se¬ 
rie di piccole procedure: si 
presuppone l’uso del c-lan- 
guage anche se, come optio¬ 


Franco Sensi, amministratore delegato della Sws. 


nal, è possibile avere un 
compilatore in Cobol. Que¬ 
sto sistema operativo si pre¬ 
senta con un data base rela¬ 
zionale corredato di un si¬ 
stema di data entry e di in- 
quiry, di un report writer, di 


un word processing e 
spreadsheet. Viene inoltre 
fornito un programma d’in¬ 
stallazione interattivo per 
aiutare gli utenti nelle fasi di 
generazione del sistema 
stesso». 


La mela 
gioca a bridge 

Benito Garozzo, campione di 
bridge e componente del Blu 
Team (la azionale azzurra di 
bridge), è stato invitato a un 
torneo organizzato dalla 
Valtur al villaggio El Kebir, in 
Tunisia. Compagno di 
viaggio di Garozzo sono stati 
un Apple//e e un programma 
con cui sono stati rifiniti i 
punteggi delle varie tornate. 
Così è stato possibile 
disporre in tempi reali di dati 
che richiedono, 
normalmente, due giorni di 
elaborazione. 








In carriera 
col Visicalc 

Raniero Pennetta, 42 an¬ 
ni, consulente di direzione e 
partner della CM e Paolo 
Beaupain, 39 anni, impren¬ 
ditore nel campo della mec¬ 
canica, applicano. E con l’a- 
iuto di un Apple // plus («So¬ 
no stato fra i primi ad acqui¬ 
starlo cinque anni fa», affer¬ 
ma con orgoglio Beaupain) 
hanno studiato un albero 
delle decisioni, un metodo 
per simulare diverse situa¬ 
zioni di investimento valu¬ 
tando caso per caso il grado 
di interesse e di convenienza 
di ognuna di esse. In parti¬ 
colare, come si può vedere 
nel grafico qui a fianco, 
(pubblicato sul numero di 
luglio della rivista Personal 
Time) vengono analizzati 
tutti i parametri oggettivi e 
soggettivi di quattro decisio- 
ni relative alle proprie 
aspettative professionali. 
Sono considerate quattro di¬ 
verse opportunità: mettersi 
in proprio, (scegliendo poi 
se procedere da soli o cerca¬ 
re un socio) cambiare azien¬ 
da (rispondendo a inserzioni 
o incaricando una società di 
consulenza), avviare una li¬ 
bera professione, (da soli o 
inserirendosi in un studio 
professionale già presente), 
restare in azienda (nella po¬ 
sizione attuale o in un even¬ 
tuale altro incarico). Il mo¬ 
dello è stato programmato 
in Visicalc ed è composto 
da una serie di formule pre¬ 
definite. Basterà attribuire 
di volta in volta le probabili¬ 
tà dei vari eventi che posso¬ 
no verificarsi, prevedendo i 
costi e i ricavi persi o guada¬ 
gnati durante lo sviluppo 
della carriera, per arrivare a 
individuare il percorso più 
conveniente. «L’albero del¬ 
le decisioni è stato ideato in 
campo militare con l’intento 
di simulare le strategie of¬ 
fensive più efficaci», dice 
Pennetta, «noi non abbiamo 
fatto altro che seguire l’ini¬ 
ziativa di alcuni esperti fi¬ 
nanziari americani che han¬ 
no cominciato a utilizzarlo 
anche nelle aziende. Un Ap¬ 
ple ha fatto il resto». 



Raniero Pennetta e Paolo Beaupain (seduto) ideatori di un’applicazione in Visicalc 
per la previsione e lo sviluppo di una carriera o di una attività imprenditoriale. 
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In edizione originale 
americana, ecco i libri 
che avete sempre 
cercato, dalla casa 
editrice che nel 
computer si è 
specializzata: la 
McGraw-Hill. 


Apple Backpack 

di Scot Kamins e Mitchell Waite. Tutto su 
come realizzare programmi user friendly, 
con controlli a prova d’errore. 

Lire 42.000. Abbonati ad 
Applicando 33.700 

Logo For The Apple// 

di H. Abelson. Tutto sul Logo, il nuovo 
linguaggio facile da usare, utilissimo agli 
adulti che vogliono insegnare ai bambini. 
Lire 47.000. Abbonati ad 
Applicando 37.500. 


68000 Assembly Language 
Programming 

di Gerry Kane, Doug Hawkins, Lance A. 
Leventhal. Presenta e spiega una per una 
tutte le istruzioni del 68000. 

Lire 50.000. Abbonati ad 
Applicando 40.000. 

Hands-On-Basic 

di Herbert Peckham. Esperienza pratica 
sul computer con attività guidate. 

Lire 57.900. Abbonati ad 
Applicando 46.300. 

Some Common Basic Programs 

di Lon Poole, Mary Borchers e David M. 
Castlewitz. 76 programmi che 
costituiscono un’antologia di listati 
finanziari, statistici e matematici. 

Lire 44.800. Abbonati ad 
Applicando 35.800. 


Appiedi 

di Stanley M. Miastkowski. Tutte le 
informazioni necessarie per superare ogni 
problema d’uso dell’Apple III. 

Lire 47.300. Abbonati ad 
Applicando 37.800. 

VisiCalc Home and office 
Companion 

di David M. Castlewitz e Lawrence 
Chisausky. Modelli pronti per 
investimenti, pubblicità, vendite, 
personale inventari per il VisiCalc. 

Lire 41.700. Abbonati ad 
Applicando 33.400. 

Science and Engineering Programs 

di John Hellborn. 46 programmi per 
termodinamica, equazioni lineari, 
differenziali, analisi strutturale, serie di 
Fourier, ecc. 









Lire 42.200. Abbonati ad 
Applicando 33.800. 

Applesoft Basic From 
The Ground Up 

di H. Mullish e D. Kruger. Per chi 
comincia, ecco una guida pratica 
all’Applesoft che conduce per mano fino 
alla programmazione strutturata. 

Lire 18.000. Abbonati ad 
Applicando 14.400. 

The Small Computer Connection 

di Neil L. Shapiro. Passo per passo, come 
collegare il vostro Apple ai mondo esterno 
per accedere alle banche dati. 

Lire 47.400. Abbonati ad 
Applicando 37.950. 

68000 Microprocessor Handbook 

di Gerry Kane. Conoscerei! 


microprocessore di Lisa e di Macintosh. 
Lire27.000. Abbonati ad 
Applicando 21.700. 

54 VisiCalc Models 

di Robert H. Fiast. Investimenti, mutui, 
tasse, e un’altra trentina di problemi 
statistici e matematici risolti da questa 
collezione di modelli per VisiCalc. 

Lire 42.000. Abbonati ad 
Applicando 33.600. 


Guide to Apple software 

Una guida completa al software per Apple 
divisa in settanta settori applicativi con un 
elenco completo dei produttori e dei 
rivenditori. 

Lire 40.000. Abbonati ad 
Applicando 32.000. 


Inviatemi, senza aggravio di spese postali, i seguenti libri MCGraw-Hill: 

□ 54 VisiCalc Models □ Some Common Basic Programs 

I □ The Small Computer Connection □ Apple III ^ 

I □ 68000 Microprocessor Handbook □ VisiCalc Home and office Companion 

| □ Apple Backpack □ Science and Engineering Programs 

I □ Logo For The Apple// □ Applesoft Basic From The ground Up 

| □ 68000 Assembly Language Programming □ Guide to Apple Software 

I □ Hands-On-Basic 


| Cognome e nome. 

. Via.....N.Cap. 

Città.Provincia. 

1 □ Sono abbonato. □ Non sono abbonato. 

I □ Allego assegno non trasferibile di L.sul CC postale N. 19740208 

I intestato a Editronica Srl, Corso Monforte 39, 20122 Milano. 

□ Pago fin d’ora con la mia carta di credito Bankamericard N. 

scadenza . 

Data.Firma. 

| □ Desidero fattura. Il mioC. Fisc./P.lvaè:... 

Desidero ricevere il catalogo completo dei libri disponibili. 

| Ritagliare e spedire a: Editronica Srl, Corso Monforte 39, 20122 Milano. 
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Il cronista 
impara a scrivere 

Dopo l’attenta ed entusia¬ 
sta partecipazione dei pro¬ 
fessionisti dell’informazione 
al corso sull’uso dei compu¬ 
ter e del software Ibm, l’As¬ 
sociazione lombarda dei 
giornalisti di Milano ha deci¬ 
so di ripetere l’iniziativa, or¬ 
ganizzando, in viale Monte 
Santo 7, un corso di tre setti¬ 
mane (dal 25 giugno al 12 
luglio) questa volta con 
macchine Apple. 

Gli iscritti, a centinaia, 
hanno ricevuto una rigorosa 
infarinatura sui programmi 
di casa Apple: Applewriter , 
il programma di scrittura 
che trasforma il personal in 
una macchina per scrivere; 
QuickFile , per l’archivio in¬ 
telligente di dati e di infor¬ 
mazioni; MS-Multiplan , un 
programma che consente di 
calcolare medie statistiche, 
breakeven point ecc. Anche 
se il corso ha rappresentato, 
per molti dei giornalisti par¬ 
tecipanti, il primo incontro 
con un computer, le lezioni 
sono state seguite senza dif¬ 
ficoltà e con notevole entu¬ 
siasmo fino all’ultima, atte¬ 
sissima, in cui si è imparato 
come collegare il proprio 
personal alle banche dati. 


I floppy disk da 3”1/2 della Memorex 


Chi informa 
e forma 


La Etnoteam di Milano 
organizzerà al ritorno dalle 
vacanze tre brevi corsi in¬ 
tensivi sulle più recenti ap¬ 
plicazioni del software in 
commercio. Il primo, sugli 
strumenti SW di personal 
computing, durerà due gior¬ 
ni e verrà ripetuto in periodi 
diversi (9/10 ottobre; 6/7 no¬ 
vembre; 4/5 dicembre); at¬ 
traverso l’utilizzo pratico di 
vari prodotti (Lotus 1-2-3, 
Dossier 128, PFS ecc.), ana¬ 
lizzerà le prestazioni dei 
principali programmi e le at¬ 
tuali tendenze del personal 
computing. L’iscrizione co¬ 
sta 320 mila lire più Iva. Il 
secondo corso presenterà, 
dal punto di vista dell’uten¬ 
te, il S.O. Unix, con partico¬ 
lare attenzione agli stru¬ 
menti per la produzione di 
software e con esercitazioni 
pratiche su elaboratore. L’i¬ 
scrizione al corso, che dure¬ 
rà tre giorni, dal 13 al 15 no¬ 
vembre, costa 450 mila lire 
più Iva. L’ultimo, di due 
giorni (27/28 novembre), sa¬ 
rà un corso sul controllo di 
qualità del software: dopo 
una panoramica generale 
presenterà una dettagliata 
metodologia di approccio 
funzionale al controllo di 
qualità del software, con 
un’esercitazione che consi¬ 
ste nel realizzare un proget¬ 
to. L’iscrizione è di 320 mila 
lire più Iva. 


Marco Malocchi e l’équipe di Etnoteam 


Per informazioni: Etno¬ 
team, Telefono 02/2141521. 

Tre e mezzo 
in condotta 

Anche la Memorex si 
adatta alle esigenze di un 
mercato che vede la nuova 
generazione di personal 
computer, Lisa e Macintosh 
in testa, orientata verso un 
utilizzo dei microfloppy da 
3" 1/2. «L’uso di supporti 
magnetici di dimensioni ri¬ 
dotte e ad alta densità di re¬ 
gistrazione», afferma Gian 
Piero Cattaneo, direttore 


della divisione computer 
media della società, «con¬ 
sentirà di unire al basso co¬ 
sto del supporto flessibile un 
elevato grado di protezione 
dati». 

Il nuovo disco della Me¬ 
morex è contenuto in un ro¬ 
busto cartridge di plastica, 
che permette un’ autoprote¬ 
zione dello stesso e ha capa¬ 
cità di 500 Kbyte non for¬ 
mattati su singola faccia. 

Una confezione da dieci, 
l’unica diponibile ora costa 
dalle 130 alle 150 mila lire a 
seconda della quantità. Per 
informazioni: Memorex Ita¬ 
lia, via Menotti 11, Milano. 
Tel. 02/718551. 


L’occasione 
era errata 

L’occasione per l’Ap¬ 
ple III aveva le cifre in¬ 
vertite: ecco l’occasio¬ 
ne esatta. Contro i 
4,999 milioni necessari 
per la console con 
128Kb e un drive incor¬ 
porato per floppy disk 
da 5-1/4", la Apple of¬ 
fre una console a 
256Kb con disk drive, il 
monitor/// e un proFile 
da 5Mb sborsando 
5,499 milioni di lire. 









Il lettore di dischi Ap 200 della Epson 


Il lettore 
è ultrasottile 

Non ha il marchio Apple, 
però è totalmente compati¬ 
bile con le macchine ideate 
da Steve Jobs. Si tratta del- 
l’Ap-200, una doppia unità a 
dischi flessibile, per dischet¬ 
ti da 5" 1/4, annunciata dalla 
Segi, la casa importatrice 
dei modelli Epson, simile, 
per concetto, al duodisk lan¬ 
ciato con successo dalla Ap¬ 
ple pochi mesi fa. Con una 
linea elegante e nello stesso 
tempo sottile, 55 millimetri 
di altezza per 35 di largheza 
per 18 di profondità, ha una 
capacità, per ogni lettore, di 
143 Kbyte, disposti su 40 
tracce, per ogni dischetto 
formattato a singola faccia. I 
lettori utilizzati sono della 
serie Sd-300, i più sottili pre¬ 
senti sul mercato, che la Ep¬ 
son ha sviluppato nei suoi 
laboratori di ricerca. Anche 
il modo di caricamento di¬ 
schi è nuovo: dopo l’inseri- 
mento, la pressione di un ta¬ 
sto sulla sinistra del lettore 
blocca il dischetto nel suo al¬ 
loggiamento ed una sua suc¬ 
cessiva pressione ne effettu- 
ta l’espulsione. Il nuovo 
prodotto viene venduto a un 
prezzo di 1.150 mila lire. 

Dischetti 

semprevivi 

I programmi in Basic sono 
su un dischetto rosso, quelli 
in Pascal su uno verde. Il gri¬ 
gio è invece il colore dei di¬ 
schi dati del Visicalc , il giallo 
di quelli in Quick File , men¬ 
tre l’azzurro è per i dischi 
che utilizzano VApple Wri¬ 
ter. Si chiamano Rainbow 
Disk, dischi arcobaleno, e 
rappresentano l’ultima mo¬ 
da nel campo dei supporti 
magnetici. Sono normali 
floppy disk da 5" 1/4 che 
hanno però cambiato vesti¬ 
to: dal nero sono passati a 
una più vivace gamma di co¬ 
lori (per l’esattezza cinque: 
grigio, giallo, arancione, 
verde e azzurro) che, oltre a 
ravvivare l’archivio, per¬ 


mette di ritrovare con più fa¬ 
cilità i vari tipi di applicazio¬ 
ni. Sono disponibili in quat¬ 
tro diverse versioni: singola 
faccia doppia densità a 48 o 
96 TPI e doppia faccia dop¬ 
pia densità a 48 o 96 TPI. 
Novità americana della so¬ 
cietà Xidex, sono commer- 

I Rainbow disk della Mee 


cializzati in Italia dalla Mee, 
(Memorie per elaboratori 
elettronici) a un prezzo che 
varia dalle 5 alle 9 mila lire, 
a seconda della quantità e 
delle caratteristiche tecni¬ 
che. Per informazioni: MEE 
Spa, via Boni 29, Milano. 
Telefono 02/4988541. 


Orion vale 
per III 

Si chiama Orion III ed è un 
pacchetto applicativo che 
consente di gestire gli ordini 
e le commesse, di pianificar¬ 
le nel tempo, di verificare i 
costi, di emettere le bolle di 
accompagnamento e la fat¬ 
turazione. È già stato instal¬ 
lato in diverse aziende. 

In una importante società 
di vendita di mobili e di arre¬ 
damenti ha consentito l’am- 
ministrazione di un portafo¬ 
glio ordini di 5.000 clienti, di 
1400 fornitori e oltre 10 mila 
articoli. Le capacità di 
Orion III sono (per le infor¬ 
mazioni relative ai clienti): 
22 campi di immissione dati 
dall’operatore, 3 campi ge¬ 
stiti dal computer (con il 
programma “contabilità”). 

La configurazione mini¬ 
ma richiesta per far girare 
Orion III è: un Apple III da 
256 Kbyte, un Profile da 5 
Mbyte (o Hardisk da 5 Mby¬ 
te), un monitor e una stam¬ 
pante. 

Per informazioni: Pps 
Personal Pascal software, 
viale della Libertà 103, Lis- 
sone (Milano) Tel. 
039/481449. 
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viaggio nella perfezione 






seguite le vostre guide: 



RHONE POULENC SYSTEMES 

concessionari autorizzati 


BRENUANI MASSIMO 

Via Chiusa, 76 
00139 ROMA 
Tel 06 8127665-8120727 

CSS s.n.c. 

V/d Fra P Sarpi. 8 A 
50136 FIRENZI! 

Tel 058 679630 


DATAPLAN s a.s. 

Via Cassa di Risparmio, 9 
39100 BOLZANO 
Tel 0471 47721 

MIDA s rl. 

Via Dietro Filippini. 1 A 
37121 VERONA 
Tel 048590505 

NUOVA TECNODATA s a.s. 
V/d D.limarla, 6 B 
43100 PARMA 
Tel 0521 25079 


PROGRAMMA UFFICIO s.a.s 
Corso Francia, 92 A 
10093 COLLEGNO (TO) 

Tel. Oli 4113565 

RAVECO-LINE s.r.l. 

Via S G B De la Salle, 4 

20132 MILANO 

Tel 02,2566849-2568802 

SDC EDPRINT s.r.l. 

Largo Promessi Sposi. 5 

20142 MILANO 

Tel 02 8435593 8466538 


STUDIO SINTESI s.a.s. 
Via Aldighieri, 61 
44100 FERRARA 
Tel. 053Z21S07 

TES-IN & C. s.r.l. 

Via Caravaggio, 82 

80126 NAPOLI 

Tel 081 643122-646752 


memorie magnetiche per computer. 




Vi occorre più memoria? Volete trasformare 
< 0 ^ il vostro Apple // in una macchina con 

prestazioni ancor più professionali? Con il nuovo 
sistema operativo ProDos, il profile e il mouse sarà possibile... 

Buon ProDos 
ti faccia 


I l ProDos è un sistema operativo al¬ 
tamente professionale per la serie 
Apple II. Gira senza nessuna modifica 
tranne che per Apple II Europlus per 
il quale è necessaria la Language 
Card. Utilizza un sistema diverso, ri¬ 
spetto al DOS 3.3, di gestione del di¬ 
schetto e delle funzioni ad esso colle¬ 
gate. Per fare un esempio, il disco si 
chiama volume, non troveremo più il 
volume number ma il prefix seguito 
dal nome con il quale individueremo il 
disco. 1560 settori del disco DOS ven¬ 
gono sostituiti da 280 blocchi conte¬ 
nenti ciascuno 512 byte (due settori); 
al termine del catalog avremo sempre 
la situazione dello spazio libero nel 
disco. Il ProDOS impiega minor tem¬ 
po del DOS 3.3 per leggere e scrivere i 
file su disco: la capacità di trasferimen¬ 
to è di otto kbyte al secondo. Il Pro- 
DOS comprende funzioni interessanti 
e tutta una serie di comandi nuovi co¬ 
me Cat, Create, Flush, Fre, Help, Pre¬ 
fix, Store e Restore, Chain mentre al¬ 
tri sono stati eliminati come Init, Int, 
Fp, Maxfiles, Mon E Nomon. L’inte- 
ger BASIC non è compatibile con il 
ProDOS. Altro vantaggio non indiffe¬ 
rente del ProDOS è quello di poter 
usare il profile come memoria di mas¬ 
sa con capacità di 5 Megabytes e il 
Mouse, che consente di ridurre al mi¬ 
nimo l’uso della tastiera. 



















Il disco, che viene fornito con i ma¬ 
nuali per l’impiego del ProDOS, si 
chiama /USER’S DISK. Sostituisce il 
vecchio master del DOS e con esso si 
possono gestire tutte le opzioni di ser¬ 
vizio. Per prima cosa si inserisce il di¬ 
sco nel drive uno e si accende il com¬ 
puter. Se è già acceso, è sufficiente 
battere PR#6 oppure CTRL-MELA 
VUOTA-RESET. Dopo pochi istanti 
si vedrà apparire sul monitor il menù 


principale pubblicato in Figura 1. 

Una cosa salterà subito all’occhio, 
la prima opzione: un punto interroga¬ 
tivo. Si tratta dell’opzione di aiuto 
(help) che si ha sempre a disposizione 
con il ProDOS. A cosa serve? Spiega 
l’utilizzo dei vari comandi. Chi lo desi¬ 
dera, quando avrà imparato le varie 
funzioni, potrà eliminare l’help dalla 
memoria con il CTRL-Z per avere 
maggior spazio a disposizione. I co¬ 



mandi per le varie funzioni sono mne¬ 
monici (la lettera che si batte rispec¬ 
chia sempre la relativa funzione) e con 
autostart (cioè non occorre battere 
Return per proseguire). 

La lettera F, nel menù principale, 
dà accesso alle opzioni di utilità (Fi- 
ler), con le quali si possono eseguire 
tutte le operazioni sul disco che erano 
possibili con il master del DOS, come 
la formattazione e la copiatura di un 
disco, la copiatura di uno o più file in 
modo automatico, ecc. Con il Pro¬ 
DOS sono però possibili operazioni 
più complesse e interessanti come il 
confronto del contenuto di due dischi 
uguali e quindi la segnalazione di 
eventuali errori (bad block). Questa 
verifica è attuabile anche su dischi for¬ 
mattati DOS. La lettera C indica una 
caratteristica del ProDOS molto inte¬ 
ressante, è la possibilità cioè di con¬ 
vertire un file qualsiasi da DOS a Pro¬ 
DOS e viceversa. Fatto questo che 
permette di lavorare con i programmi 
che già si posseggono, anche in Pro¬ 
DOS, con tutti i vantaggi che ne deri¬ 
vano. Battendo la lettera S verrà vi¬ 
sualizzata la situazione di lavoro del 
computer (il tipo, la quantità di me¬ 
moria Ram, gli slot occupati e da quali 
periferiche). La lettera T serve per in¬ 
serire la data e l’ora nel disco e a ripor¬ 
tarla in tutte le operazioni che veggo¬ 
no eseguite con lo stesso disco. 

Con l’ultima lettera, la B, si ha la 
possibilità di tornare in Basic-Pro- 
DOS. Si potrà così visualizzare il cata¬ 
logo ridotto (40 colonne) del disco bat¬ 
tendo Cat, oppure il catalogo esteso, 
quello a 80 colonne, battendo Cata- 
log, e si potrà vedere quanto spazio è 
occupato e quanto è ùbero nel disco. 
Si potranno far girare i programmi (in 
ProDOS) senza più preoccuparsi di 
battere Run oppure Brun, ma sempli¬ 
cemente battendo una lineetta (-) se¬ 
guita dal nome del file. Inoltre il Pro¬ 
DOS, a differenza del DOS, accetta i 
comandi sia nella forma maiuscola che 
minuscola, e questo è un particolare 
che farà enorme piacere a chi ha già 
provato a scrivere un programma sulla 
tastiera del nuovo He. L’opzione Filer 
presenta un menù come quello visibile 
in Figura 2. 
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NEL 1983 SEIKOSHR, PER PRIMO RL MONDO, HR PRESENTATO 
STAMPANTE GRAFICA R SETTE COLORI, RIUNENDO IN UN , 
PRATICO E COMPATTO LE CARATTERISTICHE DELLA STAMPE 
PLOTTER. M 


OGGI, CON UNA RICHISSIMA GAMMA DI INTERFACCE 
COMPUTER PIU' DIFFUSI SUL MERCATO, LA GP-7i 
PERIFERICA DI STAMPA R COLORI INSOSTITUIBILE 


REBIT COMPUTER E' ORGOGLIOSA DI RIAFFERMARE LA, 
SUL MERCATO ITALIANO ANCHE GRAZIE A QLJ9 
PERIFERICA DAL PREZZO MOLTO, MOLTO SORPRENDA] 
COMUNE STAMPANTE IN BIANCO E NERO! ^ M 


COMPUTER 
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Parlare di computer è più bello 


sapendo che c’è la stampante 



Le Compuprint serie I della 
Honeywell Information Systems nana 
sono compatibili con tutti i sistemi. 
Progettate a Pregnana Milanese, 
sono prodotte negli stabilimenti 
di Caluso in Italia. 

La serie I si articola in 4 modelli: 

Lll I, L12 CQ I, L32 CQ I, 34 CQ. 


Certo si parla molto di computer 
oggi giorno. Mai abbastanza, 
molti direbbero. È vero. 

Però è anche vero che non si 
parla abbastanza di stampanti. 

Sì proprio loro: quelle preziose 
macchine che traducendo 
immediatamente gli impulsi 
dell’unità centrale cominciano 
il lavoro dove il computer termina 
il suo, finalizzandolo. 

Parliamo adesso delle stampanti 
Compuprint serie I Honeywell 
Information Systems Italia. 
Cominciamo dal successo. 

Le Compuprint si sono 
rapidamente imposte in tutto il 
mondo, conquistando anche i 
mercati più difficili. Ma è bene 
essere specifici. 

Parliamo di quattro modelli della 
serie I: Lll I, L12 CQ I, L32 
CQ I, 34 CQ. Queste stampanti 
seriali a matrice si caratterizzano 


per le elevate prestazioni in fatto 
di scrittura e di possibilità 
grafiche. Ci troviamo di fronte ad 
una ricca scelta di caratteri: dal 
“normale” al “grassetto”, dal 
“compresso” al “corsivo”. 

Non dimentichiamo la possibilità 
di utilizzare la stampa di qualità: 
la doppia passata della nuova 
testina a nove aghi garantisce 
infatti una definizione maggiore. 

E poi possono stampare sia 
su foglio singolo che su modulo 
continuo senza limiti di carico per 
riga. Sono create per essere veloci 
e per lavorare in assoluto silenzio 
in ogni ambiente d’ufficio. 
Continuiamo a parlare di 
computer, quindi. Sapere poi che 
esistono le stampanti Compuprint 
serie I Honeywell Information 
Systems Italia ci permette di 
parlarne meglio e con più 
tranquillità. 


Compuprint è venduta sul 
mercato OEM dalla Honeywell 
Information Systems Italia : 

Torino Tel. 011/5719217 Milano 
Tel. 02/69775208-69775204 
Padova Tel. 049/664400 Roma 
Tel. 06/6517245 Napoli Tel. 
081/312193 ed è distribuita da: 
Data Base 

Viale Legioni Romane 5 

20147 Milano Tel.02/4047946 

Tlx. 315206 DAT BAS 

SDP Informatica 

Parco Primavera E/l - 81022 

Casagiove (Caserta) Tel. 0823/468945 













Con la lettera F (File commands) si 
aanno a disposizione altre otto scelte 
indicate in Figura 3 con le quali è pos¬ 
sibile listare i file contenuti nel disco, 
copiare i file da un disco a un altro 
(sempre formattato ProDOS) in modo 
automatico oppure uno per volta, can¬ 
cellare un file dal disco, confrontare 
file uguali per controllare se la copia¬ 
tura è avvenuta senza errori, sbloccare 
o bloccare un file (lock e unlock) e 


cambiare nome ad un file. Con la pe¬ 
nultima opzione si possono creare de¬ 
gli indici (directory) nel disco, mentre 
l’ultima permette di impostare, nella 
memoria del computer, il nome del 
disco con il quale stiamo lavorando. In 
questo modo l’indicazione del numero 
dello slot e del drive diventa superflua: 
il ProDOS cerca da solo in quale drive 
è sistemato il disco indicato. 

Con il ProDOS il disco può essere 



considerato come una raccolta di volu¬ 
mi della medesima opera. AH’interno 
del disco si possono creare delle rami¬ 
ficazioni ad albero: il nome del disco 
indica la raccolta di volumi, seguono 
poi i nomi dei singoli volumi (directo¬ 
ry) all’interno dei quali possiamo ri¬ 
portare l’indice dei capitoli (subdirec¬ 
tory) con eventuali sottotitoli (file). 
Ad esempio un disco Divina Comme¬ 
dia (volume name) può essere suddivi¬ 
so in Inferno, Purgatorio e Paradiso 
(directory), prevedendo poi un subdi¬ 
rectory per ciascun canto. Ora, per 
richiamare un canto dovremo battere 
/Divina Commedia/Paradiso/Canto 
III, oppure è sufficiente scrivere Pre- 
fix/Divina Commedia/Paradiso e bat¬ 
tere Return: da questo momento pos¬ 
siamo richiamare i diversi canti del 
PARADISO con un semplice Run se¬ 
guito dal nome del Canto. Questo in¬ 
sieme di nomi si chiama Pathname. Da 
notare che i vari nomi devono essere 
preceduti dalla barretta 

Con la lettera V (Volume com¬ 
mands) potremo disporre di otto scel¬ 
te (Figura 4). Possiamo così formatta¬ 
re un disco e copiare un intero disco in 
un altro. Con questa opzione la for¬ 
mattazione avviene automaticamente 
prima dell’operazione di copiatura 
con la preventiva domanda se voglia¬ 
mo veramente distruggere eventuali 
file che si trovassero nel disco da for¬ 
mattare, che vengono riconosciuti an¬ 
che nel caso di un disco formattato 
DOS. 

La quarta opzione dà la possibilità 
di vedere quali dischi occupano i drive 
con l’indicazione del loro nome. Con 
la quinta si può cambiare il nome del 
disco; con la sesta si possono ricercare 
i blocchi difettosi di un disco mentre la 
scelta numero sette fornisce la situa¬ 
zione dei dischi, della Ram aggiuntiva 
ed eventualmente del profile con l’in¬ 
dicazione dei blocchi liberi e occupati. 
L’ultima opzione è abbastanza inte¬ 
ressante perché permette di controlla¬ 
re se un disco appena copiato è uguale 
al suo originale (anche dischi DOS o 
PASCAL) facendo il confronto dei di¬ 
versi blocchi ed indicando quelli even¬ 
tualmente difettosi. 

Giorgio Caironi 
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Si chiama Apple pittore, una vera e propria scatola di colori 
elettronica che permette di realizzare sullo schermo capolavori 
di pittura. Con un po’ di attenzione e di inventiva è possibile ottenere 
effetti speciali di grande impatto visivo, utilizzando routine 
di controllo semplici, interattive e a prova d’errore. 



^ Computer e 

pennello 


^| 
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C ? era una volta un programma di 
grafica ad alta risoluzione per 
l’Apple II che trasformava il televisore 
in una combinazione di tavolo da dise¬ 
gno, Etch-a-Sketch e Spirograph. Si 
spingeva un pulsante e appariva una 
linea arancione; si premeva un tasto e 
veniva disegnata una stella. Purtrop¬ 
po, però, il programma cominciava 
con una scarna schermata di incom¬ 
prensibili istruzioni, e l’unica reazione 
offerta nel corso dell’esecuzione era 
uno sporadico suono, un basso «boop» 
a indicare che era stato eseguito un 
comando. Insomma, neppure il più 
smaliziato dei programmatori riusciva 
a ricordare da un’esecuzione all’altra 
quali fossero i comandi destinati ad 
attivare le diverse funzioni. 

Epppure un programma complesso, 
sia usato per lavoro sia per divertimen¬ 
to, dovrebbe avere routine di control¬ 
lo semplici, interattive e a prova d’er¬ 
rore con istruzioni che forniscano dati 
sufficienti per evitare il ricorso a docu¬ 
mentazioni esterne. 

Apple pittore è il risultato di questa 
esperienza e gira su Apple II Plus, Ap¬ 
ple II e Apple //e. Prima di analizzare 
in dettaglio le tecniche impiegate nella 
realizzazione del programma, ecco le 
caratteristiche operative. 



Come si usa Apple pittore 

Il programma inizia con la pagina 
d’intestazione che comprende la do¬ 
manda «ISTRUZIONI?». Per avere 
un breve manuale d’istruzioni sarà ne¬ 
cessario rispondere S (bisogna preme¬ 
re >RETURN< dopo aver letto ogni 
pagina, per avere la seguente). Alla 
fine si preme A per rileggere le istru¬ 
zioni oppure >RETURN< per andare 
avanti. Dopo le istruzioni (oppure se si 
è risposto alla domanda iniziale con N) 
si vedrà uno schermi Hi-Res vuoto, 
con un menù di quattro righe in basso. 
I tasti delle frecce scelgono le voci del 
menù, mentre il tasto >RETURN< sce¬ 
glie la voce che è accesa in quel mo¬ 
mento. 

Per prima cosa si sceglie un colore 


1 R£M ********************** 

2 REM * APPLE PITTORE * 

3 REM * BY AL EVANS * 

4 REM * COPYRIGHT <0 1981 * 

5 REM * BY APPLICANDO & * 

6 REM * M1CR0-SPARC. INC. * 

7 REM ********************** 

10 GOTO 2000 

15 SUI = 'QFF':ML = PEEK <115):MH = PEEK (116): H1MEM: 8192 
20 COL = 0:C0L* = 'NERO 
25 P1C* = 'FIGURA SENZA NOME 

30 KBD = - 16384:SB = - 16368:81 = - 16287:B2 = - 16286:T = 3:K = 1.18 
35 P2 = 6.28318531:S = .03498066585: DIM H(4),V(4):D* = CHR* (4) 

40 X0 = 5:Y0 = 5:C0L = Q:C0L* = 'NERO ":PIC* = 'FIGURA SENZA NOME ' 

45 H6R : GOTO 1000 

50 REM LOOP BASE PER DISEGNARE 

55 IF PEEK (KBD) = 155 THEN P0KE SB,0: GOTO 1000 

60 X2 = XI:Y2 = Y1 

65 XI = INT ( PDL (0) * 277 / 255 + 1):Y1 = 1NT ( PDL (1) * 189 / 255 + 1) 


70 1F SU THEN G0SUB 150: GOTO 50 
75 IF PEEK (Bl) < = 127 THEN 90 

80 X0 = XI + 1:Y0 = Y1 + 1: HC0L0R= 3: HPLOT X0,Y0: GOSUB 175 

85 FOR D = 1 T0 500: NEXT 

90 HCQLORs 3: HPLOT X1,Y1 

95 HC0L0R= 0: HPLOT X2.Y2 

100 IF PEEK (B2) ) 127 THEN GOSUB 150 

105 GOTO 50 

150 REM TRACCIA E AGGIORNA 
155 X3 = XI:Y3 = Y1 
160 HC0L0R= COL 

165 HPLOT X0,Y0 T0 X3.Y3: HPLOT XO - 1,Y0 T0 X3 - 1,Y3 
170 X0 = X3:Y0 = Y3 


175 REM INTRODUZIONE DATI SOLO PER AGGIORNAMENTO 
180 H(Q) = XO:V(0) = YO 


185 

190 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

300 


FOR I = 4 TO 1 STEP - 1:H(I) = H(I - 1):V(I) = V(I - 1): NEXT 
RETURN 

REM SCEGLIE IL COLORE 
HOME 

PR1NT 'COLORE: N<ERO, CELESTE, BdANCO, - : PRINT ' A(RMCI0, P(0R 
P0RA, V(ERDE" 

GET CHI 

THEN COL* 


IF CH* = 
IF CH* = 
IF CH* = 


THEN COL* = 


IF CH* = °A' THEN COL* = 
IF CH* = 'P' THEN COL* = 


'NERO 

':CGL = 

0: GOTO 1000 

'CELESTE 

':CQL = 

6: GOTO 1000 

'BIANCO 

':C0L = 

3: GOTO 1000 

■ARANCIO 

':C0L = 

5: GOTO 1000 

'PORPORA 

':CQL = 

2: GOTO 1000 

■VERDE 

°:C0L = 

1: GOTO 1000 


IF CH* = 'V 8 THEN COL* = 

GOTO 205 

REM ATTIVA E DISATTIVA LA PEtttt 
305 SU = N0T SU 

310 IF NOT SW THEN SU* = 'OFF' 

315 IF SU THEN SW* = " ON' 

320 GOTO 1000 

400 REM CAMBIA FIGURA 

404 HOME 

408 FRI,NT 'FIGURE: N(0ME, CARICARE, R(EGISTRARE,': 
RE, (ESC)' 

412 0NERR GOTO 484 
416 GET CH* 

420 IF CH* = CHR* (27) THEN POKE 216,0: GOTO 1000 


PRINT 


E(LIMINA 
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(non ha senso disegnare in nero su 
nero), premendo le frecce fino a quan¬ 
do si accende sul menù la riga COLO¬ 
RE: a questo punto si preme >RE- 
TURN< e si introduce la prima lettera 
di uno dei colori mostrati (è da notare 
che il menù mostra, in questa fase, il 
colore che si è scelto). Il tasto >ESC< 
commuta dal menù alla pagina di tutta 
grafica e viceversa. Premendolo il me¬ 
nù scomparirà e si noterà un punto 
lampeggiante in qualche parte dello 
schermo, che andrà collocato in una 
posizione soddisfacente, dal punto di 
vista artistico, per poi premere il pul¬ 
sante su PDL(O). Ciò dovrebbe lascia¬ 
re un segno sullo schermo. Spostando 
il cursore lampeggiante da qualche al¬ 
tra parte e premendo il pulsante su 
PDL(l), le due locazioni dovrebbero 
essere collegate da una linea del colore 
scelto. Spostando e premendo nuova¬ 
mente il pulsante di PDL(l), il nuovo 
punto di partenza viene localizzato nel 
vecchio punto terminale. Il pulsante di 
PDL(O) reimposta il punto d’avvio sul¬ 
la presente posizione del dot lampeg¬ 
giante; il pulsante di PDL(l) traccia 
una linea che va fino all’attuale punto 
d’avvio. 

Per tornare al menù e scegliere un 
nuovo colore è necessario premere 
PDL(O) e >ESC<. I tasti freccia vengo¬ 



no usati per spostarsi sulla riga che 
dice PENNA:OFF e, premendo >RE- 
TURN<, viene attivata la penna. Con 
>ESC< si muovono i comandi delle 
paddle, disponendo di un «Etch-a- 
Sketch» a colori. La voce successiva 
del menù viene usata per dare un no¬ 
me (NOME) a un’immagine o per can¬ 
cellarla (ELIMINARE) e per caricare 
da dischetto o salvare su dischetto. 
Quando si salva una figura è necessa¬ 
rio assicurarsi che ci sia spazio in ab¬ 
bondanza sul dischetto (ogni immagi¬ 
ne occupa 34 settori). 

L’ultima riga del menù è quella de¬ 
gli effetti speciali (EFFETTI SPE¬ 
CIALI). Gli effetti speciali attualmen¬ 
te compresi nel programma sono riem¬ 
pire (FILL) e curve (CURVE). Usan- 


424 IF CHI = 'E 1 THEN HOME : PRINT "SIETE SICURI? 6ET CHI: IF CHI = "S 
1 THEN PICI = "FIGURA SEN2A NOME HGR : POKE 216,0: GOTO 1000 

428 IF CHI = "N" THEN 460 
432 IF CHI = "R" THEN 476 
436 IF CHI < > "L" THEN POKE 216,0: GOTO 404 
440 HOME : PRINT "NOME DELLA FIGURA DA CARICARE:" 

444 INPUT “"{PICI: IF LEN (PICI) > 25 THEN PICI = LEFTI (PICI,25) 

448 IF LEN (PICI) ( 25 THEN PICI = PICI * * ": GOTO 448 

452 PRINT DI;'BL0AD PBX.";PICI;",AI2000" 

456 POKE 216,0: GOTO 1000 

460 HOME : PRINT "DATE IL NOME ALLA FIGURA:" 

464 irklT "■ jPICI: IF LEN (PICI) > 25 THEN PICI = LEFTI (PICI,25) 

468 IF LEN (PICI) < 25 THEN PICI = PICI 4 " ": GOTO 468 

472 POKE 216,0: GOTO 404 

476 PRINT : PRINT DI;"BSAVE PBX.";PICI;",AI2000,LI1FFF" 

480 POKE 216,0: GOTO 1000 
484 REM ERRORI DI LQAD/SAVE 

488 EC = PEEK (222): IF EC = 6 THEN PRINT "FILE NOT FOUND": FOR D = 1 TO 1 
500: NEXT : POKE 216,0: GOTO 404 

492 IF EC = 9 THEN PRINT DI;"DELETE PBX,";P1CI: PRINT "DISK FULL": FOR D = 
1 TO 1500: NEXT : POKE 216,0: GOTO 404 

496 PRINT "INCONTRATO UN ERRORE. CONTROLLARE DISCO, DRIVE, SINTASSI E RIP 
RODARE.": FOR D = I T0 2500: NEXT : POKE 216,0: GOTO 404 
500 REM EFFETTI SPECIALI 
505 HOME 

510 PRINT "EFFETTI SPECIALI:F(ILL,C(URVE, < ESC ) " 

515 GET CHI 

520 IF CHI = CHRI (27) THEN 1000 
525 IF CHI = "F" THEN 700 
530 IF CHI < > "C" THEN 505 
535 2 = ABS (V(2) - V<1)) 

540 HOME : INPUT "ASSEGNARE UN NUMERO AD 'A'E (RETURN):";A 
545 INPUT "ASSEGNARE UN NUMERO A 'B' E (RETURN):";B 
550 PRINT "LA CURVA VA MODULATA? GET CHI: PRINT : IF CHI ( ) "S" THEN 
M = Q:N = 0: GOTO 565 

555 INPUT "ASSEGNARE L'AMPIEZZA IN X E (RETURN) :";M:M = M / 100 « Z 

560 INPUT "ASSEGNARE LA FREQUENZA E (RETURN): ";N 

565 HC0L0R= COL 

570 FOR TH = 0 TO P2 STEP S 

575 R = 2 * SIN (TH » T) 

58Q X2 = K * R * COS (A * TH) ♦ H(2) 


585 X2 = ABS (X2 4 (K * M * COS (N * TH * T))) 

590 Y2 = R * SIN (B * TH) + V(2) 

595 Y2 = ABS (Y2 + (M * SIN (N * TH * T))) 

600 IF TH = 0 THEN XI = X2:Y1 = Y2 

605 IF XI ) 278 THEN XI = 278 - (XI - 278) 

610 IF Y1 > 190 THEN Y1 = 190 - (Y1 - 190) 

615 IF X2 > 278 THEN X2 = 278 - (X2 - 278) 

620 IF Y2 > 190 THEN Y2 = 190 - <Y2 - 190) 

625 HPL0T XI,Y1 TO X2,Y2 

630 HPLOT XI 4 1,Y1 TO X2 4 l,Y2 

635 XI = X2:Y1 = Y2 

640 IF PEEK (B2) ) 127 THEN 1000 

645 NEXT TH 

650 GOTO 1000 

700 REM FILL(RIEMPIRE) 

705 A = V(2) - V(4): IF A = 0 THEN A = 1E - 6 

710 B = V(l) - V<3>: IF B = 0 THEN 8 = 1E - 6 

715 C = H(2) - H(4): IF C = 0 THEN C = 1E - 6 

720 D = H(l) - H(3): IF D = 0 THEN D = 1E - 6 

725 HC0LQR= COL 


Listato 1 
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730 FOR N = 9 TO A 

735 X9 = H<4) 4 N * C / A 

740 IF X9 < 0 THEN X9 = 0 

745 IF X9 ) 279 THEN X9 = 279 

750 Y9 = V(4) ♦ N 

755 IF Y9 < 0 THEN Y9 = 0 

760 IF Y9 > 19! THEN Y9 = 191 

765 X8 = H(3) 4 N * 0 / B 

770 IF X8 < 0 THEN X8 = 0 

775 IF X8 > 279 THEN X8 = 279 

780 Y8 = V(3) 4 N * B / A 

785 IF Y8 < 0 THEN Y8 = 0 

790 IF Y8 > 191 THEN Y8 = 191 

795 HPLOT X9.Y9 TO X8,Y8 

890 IF PEEK <B2) > 127 THEN 1000 

805 NEXT N 

810 GOTO 1000 

1000 REM NUOVO MENU' 

1905 F = 1 

1010 POKE - 16304,0: POKE - 16297,0: POKE - 16301,0: POKE 34,20: HOME 
1015 IF F = 1 THEN INVERSE 

1020 HTA8 3: PRINT “COLORE: ";COL$;“ “: NQRMAL 

1025 IF F = 2 THEN INVERSE 

1030 HTAB 3: PRINT “PEN^: ': NORMAL 

1035 IF F = 3 THEN INVERSE 

1040 HTAB 3: PRINT “FIGURA: “;PIC$: NORMAL 

1045 IF F = 4 THEN INVERSE 

1050 HTAB 3: PRINT "EFFETTI SPECIALI (F PER FINIRE) NORMAL 
1055 SET CH$ 

1060 IF CH$ = CHR$ (21) THEN F = F 4 1 ; IF F > 4 THEN F = F - 4 

1065 IF CH$ = CHR$ (8) THEN F = F - 1: IF F < 1 THEN F = F 4 4 

1070 IF CH$ = CHR* (13) THEN ON F GOTO 200,300,400,500 

1075 IF CH$ = CHR$ (27) THEN POKE - 16302,0: GOTO 50 

1080 IF CH$ = “F“ THEN POKE 115,ML: POKE 116,MH: POKE 34,0: TEXT : POKE - 
16298,0: HOME : END 
1085 GOTO 1010 

2000 REM TITOLO & ISTRUZIONI 
2005 HOME 

2010 VTAB il: HTAB 10: INVERSE : PRINT “—APPLE PITTORE — B : NORMAL 
2015 PRINT : HTAB 13: PRINT “BY AL EVANS** 

2020 VTAB 3: HTAB 12: PRINT “COPYRIGHT 1980’: PRINT : HTAB 5: PRINT ‘APPLIC 
ANDO & MICRO-SPARO, INC." 

2025 VTAB 24: HTAB 18: PRINT “ISTRUZIONI?" ; : GET CH$: IF CH$ = ’S‘ THEN 210 
0 

2030 CLEAR : GOTO 15 

2100 REM CARICA LE ISTRUZIONI DAL DISCO 
2105 LC = 0:1$ = *“:D$ = CHR$ (4): HOME 
2110 GNERR GOTO 2200 

2115 PRINT : PRINT W;“GPEN ISTRUZIONI APPLE PITTORE’ 

2120 PRINT : PRINT D$;“READ ISTRUZIONI APPLE PITTORE" 

2125 GET CH$: IF CH$ < ) CHR$ (13) THEN 1$ = 1$ 4 CHI: GOTO 2125 
2130 PRINT : PRINT !$:!$ = a “:LC = LC 4 1 • IF LC < 22 THEN 2125 

2135 PRINT : PRINT W: HTAB 11: INVERSE : PRINT “(RETURN) PER CONTINUARE* ; : 

NORMAL 

2140 GET CHI: IF CH$ < ) CHR$ (13) THEN 2140 
2145 LC = 0: GOTO 2120 

2200 PRINT : VTAB 24: HTAB 16: PRINT “FINE" 

2205 PRINT “PREMERE 'A' PER RIVEDERE LE ISTRUZIONI" 

2210 PRINT “BATTERE (RETURN) PER INIZIARE* 

2215 PRINT D$; u CL0SE ISTRUZIONI APPLE PITTORE n 
2220 GET CH$: IF CH$ = ‘A* THEN 2100 
2225 POKE 216,0: CLEAR : GOTO 15 


do la funzione FILL, si riempiono gli 
spazi con una tinta unita (quando ven¬ 
gono introdotti 4 punti nell’ordine in¬ 
dicato nelle istruzioni). Quando si usa¬ 
no ordini d’introduzione differenti, si 
ottengono altri effetti, alcuni dei quali 
di grande impatto visivo. 

CURVE è stato ideato come una 
specie di iper-Spirograph; due punti, 
introdotti come indicato nelle istruzio¬ 
ni, controllano la posizione di schermo 
e le dimensioni della figura disegnata. 
Per determinare la sua forma yengono 
introdotti quattro numeri. È molto 
difficile descrivere a parole che cosa 
accada esattamente. Bisogna provare! 

Se si smette accidentalmente o si 
batte RESET, bisogna introdurre 
3D0G >RETURN<, se necessario per 
tornare in Applesoft, e, poi, GOTO 
ÌOOO >RETURN< per reintrodurre il 
programma senza cancellare l’imma¬ 
gine. Per smettere si preme F. 

Le routine di controllo 

Per quanto siano di funzionamento 
molto più semplice delle funzioni di 
disegno, le routine di controllo si sono 
dimostrate assai più ostiche da proget¬ 
tare. A complicare il problema è il 
fatto che il display della grafica Hi-Res 
concede solo quattro righe di testo. Il 



programma originale usava IO diversi 
comandi, mentre questa versione ne 
usa 13. Inoltre lo spazio di memorizza¬ 
zione dell’Applesoft si estende, quan¬ 
do si usa la pagina uno dell’alta risolu¬ 
zione, dalla locazione 2049 alla loca¬ 
zione 8192, per un totale di 6144 byte 
per programma e spazio di lavoro. Ec¬ 
co come il Paintbox sfrutta al massimo 
lo spazio di memoria e di visualizzazio¬ 
ne disponibile. 

Le linee 1000-1085 del programma 
gestiscono il menù. La variabile F è 
impostata dalle frecce destra e sinistra 
su 1, 2, 3 o 4 (linee 1060-1065). Questa 
variabile è usata per stampare in nero 
su bianco la riga del menù scelta (linee 
1015, 1025, 1035, 1045). Quando si 
introduce un ritorno carrello (linea 
1070), F punta alla routine da esegui- 
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APPLE Ile non finisce qui. Se vi innamorate dell’Apple Ile, vi ri¬ 
cambierà. Dappertutto: in casa, in ufficio, da qualsiasi altra parte. 
Perchè compatto vuol anche dire trasportabile: Apple Ile sta in 
una valigetta 24 ore. 










ATI DI UN COMPUTER? 


APPLE Ile ha tutto per farsi desiderare. Infatti, ha ereditato dalla 
sua famiglia, la famiglia Apple II, la più ampia libreria di programmi 
esistente, ed è dotato del mouse, un accessorio rivoluzionario che 
vi permette di lavorare in maniera semplice ed intuitiva. 




APPLE Ile: una ricchissima dote. Vi ci 
vorrà un po’di tempo per scoprire tutte 
le risorse dell'Apple Ile. Subito sarete in¬ 
cantati dal suo prezzo. E poi... Ma qui 
non c'è rimasto che lo spazio per antici¬ 
parvi le connessioni del suo pannello po¬ 
steriore: Mouse, Joystick e Paddles; Mo¬ 
dem; Visore a pannello piatto, Televiso¬ 
re e Monitor a colori RGB; Monitor; Dri¬ 
ve esterno; Stampanti e Plotter a colori. 
Apple Ile. Il computer che farà innamo¬ 
rare anche voi. 




pppkz computer 

APPLE COMPUTER S.p.A. - MILANOFIORI. PALAZZO Q8. 20089 ROZZANO (MI) 
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re. Questo menù presenta diversi van¬ 
taggi. In primo luogo lo si può control¬ 
lare completamente con tre tasti, il che 

10 rende quanto mai facile da usare. In 
più il metodo di accendere le scelte 
riduce grandemente la probabilità che 
si faccia un’introduzione sbagliata. 
Anche se in assoluto il numero di pres¬ 
sioni di tasto richiesto può essere mag¬ 
giore (se ci sono, per esempio, 10 o 12 
scelte possibili), la maggior parte delle 
persone trova questo tipo di menù più 
veloce da usare del consueto tipo «sce¬ 
gli un numero». Il numero di passi ri¬ 
chiesto viene ridotto mettendo presso 
la cima (o il fondo) del menù le voci 
che sono scelte più spesso. Infine non 
c’è, a parte la pressione di >RESET<, 
alcuna possibilità di immettere qual¬ 
cosa che il menù non capisca. 

Questo particolare menù consente 
altre due introduzioni: >ESC< (linea 
1075) trasferisce il controllo al loop 
principale di disegno del programma 
(linee 50-105). F (linea 1080) fa uscire 

11 programma dopo aver ripristinato il 
computer nel suo stato iniziale (la li¬ 
nea 15 ha salvato l’indirizzo HIMEM 
originale e impostato HIMEM:8192, a 
protezione della grafica; la linea 1010 
ha impostato la finestra di testo sulle 
quattro righe in basso soltanto). Il me¬ 



nù utilizza anche COL$, SW$ e PIC$. 
che sono cambiati dalle relative routi¬ 
ne (linee 200-250, 300-320 e 400-480) 
in modo da fornire una visualizzazione 
costante dello stato del sistema. Il ri¬ 
sultato finale è un semplice metodo di 
controllo di un programma versatile. 

Le istruzioni di text file 

Il problema successivo era dove 
mettere un corredo di istruzioni d’uso 
piuttosto lungo per un programma che 
doveva essere piuttosto corto. La solu¬ 
zione è stata quella di lasciare le istru¬ 
zione completamente fuori dal pro¬ 
gramma. Si sono usate, invece, le linee 
2100-2225 per leggere dal dischetto un 
normale text file sequenziale. (Nota: 
le si può concellare se si usano le istru- 


ISTRUZIONI 
APPLE PITTORE 

1. PREMERE <ESC> PER TORNARE 0 USCIRE 
DAL MENU'. 

SELEZIONARE UNA VOCE DAL MENU' CON 
FRECCIA DESTRA E SINISTRA. PREMERE 
<RETURN> PER CONVALIDARE LA SCELTA. 

2. PER SCEGLIERE UN COLORE, SELEZIONE 
LA VOCE “COLORE:' E PREMERE <RETURN>. 

3. DISEGNARE CON LA PEN^sQFF (DISINSE¬ 
RITA). 

PREMERE (ESC) PER LASCIARE IL MENU'. 

le mma delle paddle cpdlco) e 

PDL< 1)3 SPOSTANO UN PUNTO LUMINOSO 
SULLO SCHERMO. IL PULSANTE 0 FISSA 
IL PUNTO, IL PULSANTE 1 DISEGNA UNA 
LINEA FINO A QUEL PUNTO. IL VECCHIO 
PUNTO FINALE DIVENTA IL NUOVO PUNTO 
DI PARTENZA. 

4. DISEGNARE CON LA PEMA:QN (INSERITA) 
PREMERE IL PULSANTE 0 PER FARE UN 
SEGNO SULLO SCHERMO. PREMERE QUINDI 
(ESC) PER TORNARE AL MENU'. SELEZIO¬ 
NARE LA VOCE “PENtt:“ CON LE FRECCE 

E PREMERE (RETURN). ADESSO LE fWOPO- 
LE DELLE PADDLE FUNZIONA COME I 
BOTTONI DI UN “ETCH-A-SKETCH". 

5. EFFETTI SPECIALI: FULL 

FILL E' USATO PER RIEMPIRE AREE A 
TINTA UNITA. USARE IL PULSANTE 0 
PER FISSARE 4 PUNTI NEL SEGUENTE 
ORDINE: 

1 2 
« * 


* # 

3 4 

PREMERE QUINDI (ESC) PER TORNARE AL 
MENU', SCEGLIERE “EFFETTI SPECIALI 1 , 

E PREMERE “F“ PER RIEMPIRE. L'AREA 
RACCHIUSA TRA I 4 PUNTI SARA' 

RIEMPITA CON IL COLORE SCELTO. 
NATURALMENTE I PUNTI POSSONO ESSERE 
FISSATI IN POSIZIONI DIVERSE CON 
PIACEVOLI SORPRESE. 

6. EFFETTI SPECIALI: C(URVE 

QUESTO EFFETTO SPECIALE FUNZIOM COME 
UNO SPIROGRAPH. SEGNARE 2 PUNTI CON 


zioni riprodotte qui. In caso contrario 
si usi il listato #2 per creare il text file). 

Questo tipo di file può essere scritto 
da molti text editor e word processor, 
oppure con il breve programma forni¬ 
to (listato 3). Questa tecnica ha diversi 
vantaggi sul consueto metodo che con¬ 
siste nell includere le istruzioni d’uso 


IL PULSANTE 0, NELLA POSIZIONE INDI¬ 
CATA : 

1 


2 

QUESTI PUNTI FISSANO LE DIMENSIONI 
E LA POSIZIONE DELLA CURVA. PREMERE 
(ESC) PER TORNARE AL MENU', SCEGLIE¬ 
RE “EFFETTI SPECIALI“ E PREMERE “C“ 
PER CURVE. INTRODURRE 1 VALORI PER 
A E B (ESSI DETERMINANO LA FORM 
DELLA CURVA).I NUMERI NEGATIVI 
IWERTONO LA CURVA. LA CURVA “RIMB¬ 
ALZA" TRA LA SQWITA', IL FONDO E 
1 LATI DELLO SCHERMO. ORA, ALLA 
DOMANDA “MODULARE LA CURVA? RISPONDE¬ 
RE CON “S“ 0 “N“. LA MODULAZIONE 
ALTERA LA FORM DI BASE. 

INTRODURRE I NUMERI PER “7. MPIEZZA" 

E “FREQUENZA*. USANDO 3,3 PER A E B 
SI DISEGM UN CERCHIO. 

AMPIEZZA=20,FREQUENZA=? 
AMPIEZZA=30,FREQUENZA=9 
AMPIEZZA=30,FREQUENZA=-9 


ALTRE FORME INTERESSANTI SI OTTENGONO 
CON: 

AM, B=4; 

AMO, B=23; 

A=33, B=33; 

A=12, B=6. 

INFINE,PROVARE CON A=-3,B=-3,MPIEZZA 
=30,FREQUENZA=3. SORPRESA!! 

NOTE 

IL PULSANTE 1 PUÒ' ESSERE USATO PER 
USCIRE DA UN “EFFETTO 1 0 DALL ALTRO 
IN QUALSIASI MOMENTO. IN CASO DI 
USCITA ACCIDENTALE, SI PUÒ' TORMRE 
AL BASIC BATTENDO “3D0G“ (RETURN) 

SE NECESSARIO, QUINDI BATTERE GOTO 
1000 (RETURN). 


COPYRIGHT 1980 
BY 

APPLICANDO 4 M1CR0-SPARC INC. 


nel programma stesso. In primo luogo 
fa risparmiare memoria, fatto partico¬ 
larmente importante in questo caso, 
con le istruzioni lunghe e lo spazio di 
lavoro corto. Secondariamente è mol¬ 
to più facile formattare schermate di 
informazioni con un text editor che 
non utilizzando istruzioni di stampa 
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10 REM TEXTFILE WRITER 

15 REM BY AL BMS, 1980 

20 Di = CHRi (4)sii = " 

30 Fi = 'ISTRUZIONI APPLE PITTORE'; REM NOME DEL FILE D 
A SCRIVERE 

50 PRINT Di;'OPEN';FÌ: PRINT Di;'DELETE';Fi: PRINT Di;'0 
PEN'jFi 

60 6ET CHi: PRINT CHi; 

65 IF CHi = CHRi (21) AND li < > " THEN li = LEFTi < 
li, LEN (li) - 1): POKE 36, POS (0) - 1 

70 IF CHi < ) CHRi (13) THEN li * li ♦ CHi: GOTO 60 

75 IF li = '(FINE)' THEN 100 

80 PRINT Di: PRINT Dij'APPEND';FÌ: PRINT Di;'URITE'; Fi: PRINT 
li:li = ": GOTO 60 

100 PRINT : PRINT Dij'CLOSE';FÌ 

105 PRINT 'FINE': END Listato2 


BASIC. Anche le modifiche ie le cor¬ 
rezioni sono più semplici. Ma non è 
tutto: la stessa routine può essere usa¬ 
ta per leggere e visualizzare qualsiasi 
insieme di istruzioni (o qualsiasi altro 
text file sequenziale) semplicemente 
cambiando il nome del file. 

La linea 2105 inizializza il conteggio 
delle righe (LC) e la variabile stringa 
usata per conservare ciascuna riga di 
istruzioni. La linea 2110 fa saltare il 
programma a linea 2200 quando è rag¬ 
giunta la fine dei dati. Le linee 2115 e 
2120 danno avvio al procedimento di 
lettura del file. Si noti che prima di 
ciascuna operazione del dischetto vie¬ 
ne usato un PRINT in più, richiesto 
dal DOS dell’Apple per cancellare i 
GET che precedono. 

La linea 2125 legge i caratteri dal file 
fino a quando trova un ritorno carrello 
[CHR$(13)] che indica la fine di una 
riga. La linea 2130 stampa ogni riga e 
incrementa il contatore di righe fino a 
che lo schermo è completo (LC = 22). 
Le linee 2135-2145 annullano l’opera¬ 
zione lettura, attendono un >RE- 
TURN<, azzerano il contatore di righe 
e riavviano il procedimento. 

Quando si raggiunge una condizio¬ 
ne OUT OF DATA (vale a dire alla 
fine del file) l’ONERR GOTO a linea 
2110 causa un salto a linea 2200. Le 
linee 2200-2225 completano la presen¬ 
tazione, chiudono il file, cancellano la 
condizione ONERR GOTO e atten¬ 
dono che l’utente scelga l’operazione 
successiva. 

Le istruzioni 
di Apple pittore 

Il listato 3 è lo stampato del file 
ISTRUZIONI APPLE PITTORE. 

Il TEXTFILE WRITER può essere 
usato per scrivere qualsiasi file di testo 
sequenziale. Ogni linea deve essere in¬ 
trodotta (eventuali spazi compresi) fa¬ 
cendola seguire da un >RETURN<. Si 


può tornare indietro e fare correzioni 
prima di premere >RETURN<. Usan¬ 
do il solo >RETURN<, si scriverà una 
riga vuota. Dopo che l’immissione è 
completata si introduce la parola“>FI- 
NE<”, esattamente come indicato e si 
prema >RETURN< per completare 
l’operazione. 

La routine di disegno 

Il loop di base per il disegno (linee 
50-105) condivide con il menù il con¬ 
trollo del programma. Il controllo è 
trasferito al menù dalla linea 55 quan¬ 
do si preme >ESC<. Le linee 60 e 65 
conservano gli ultimi valori X e Y e 
leggono i nuovi dalle paddle. Se l’in¬ 
terruttore «PENNA:» (ossia SW) è in¬ 
serito (linee 300-320), la linea 70 cor¬ 
tocircuita il loop e va direttamente alla 
subroutine che disegna una linea e ag¬ 
giorna la matrice H(4),V(4). Questa 
matrice è impiegata per memorizzare 
gli ultimi quattro punti estremi intro¬ 
dotti (linee 150-190). 

Se PENNA è disinserito la linea 75 
controlla il pulsante di PDL(O). Se 
questo pulsante non è premuto 
[PEEK(B1)>127] le linee 90 e 95 trac¬ 
ciano un punto bianco nella presente 
posizione e cancellano il punto prece¬ 
dente. Se il pulsante è stato premuto la 
linea 80 mette un punto bianco scosta¬ 
to di 1 dot dalla attuale posizione (in 
modo che non sia cancellata) e aggior¬ 
na la matrice dei punti «significativi». 
La linea 85 non fa che dare il tempo di 
rilasciare il pulsante. 

La linea 100 controlla se il pulsante 
di PDL(l) sia stato premuto. In caso 
affermativo viene disegnata una linea 
dal più recente punto estremo all’at¬ 
tuale posizione. La routine FILL (li¬ 
nee 700-810) usa gli ultimi quattro 
punti estremi introdotti nelle matrici 
H e V per riempire uno spazio che si 
presuppone delimitato da quattro 
punti introdotti in un certo ordine. 



Tuttavia una completa verifica della 
gamma (linee 740-745, 755-760, e via 
dicendo) permette di introdurre i pun¬ 
ti in qualsiasi ordine. Questo rende 
possibile ottenere una varietà di altri 
interessanti effetti dalla stessa routine. 

Sarebbe quasi impossibile descrive¬ 
re soltanto a parole la routine CUR¬ 
VE (linee 535-650). La figura uno è un 
diagramma che mostra l’aspetto ap¬ 
prossimativo della routine qualora 
fosse un dispositivo meccanico. Nella 
figura, il braccio principale B ruota 
attorno all’asse principale A. Il carrel¬ 
lo C slitta avanti e indietro sul braccio 
B durante la rotazione. Nel contempo 
il braccio secondario E (di lunghezza 
determinata da «% AMPIEZZA») 
ruota attorno all’asse secondario D a 
un ritmo determinato da «FRE¬ 
QUENZA». Il disegno vero e proprio 
lo fa la penna F. Le linee 570-645 im¬ 
plementano questa azione come routi¬ 
ne di tracciamento polare. Anche qui 
è disponibile un controllo completo 
della gamma. In questo caso le linee 
605-620 fanno sì che la penna sia rifles¬ 
sa dalla sommità, dalla base e dai lati 
dello schermo. Premendo il pulsante 
di PDL(l) si mette termine all’esecu¬ 
zione della routine. 

Come è stato presentato l’Apple 
Pittore occupa approssimativamente 
4700 byte di memoria, lasciando liberi 



espansioni. Un miglioramento potreb¬ 
be consistere nell’espansione delle 
routine di gestione dell’errore di 
LO AD e SAVE (linee 484-496), che 
attualmente presuppongono rispetti¬ 
vamente errori di FILE NOT 
FOUND e DISK FULL. Si potrebbe, 
inoltre, fare un’aggiunta discretamen¬ 
te semplice per avere la visualizzazio¬ 
ne di un catalogo completo quando si 
incontra uno di questi errori. I manua¬ 
li dell’Applesoft e del DOS permetto¬ 
no di vedere le tecniche e i codici di 
errore interessati. ■ 


■BEH2EM 
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1 programma Otto volante insegna ai 
bambini a riconoscere la forma di 
ciascun numero, indicandolo per no¬ 
me, prima che possano apprenderne il 
valore. Anche a chi non ha figli, però è 
in grado di offrire alcune belle routine 
per i suoi programmi. 

Come si usa 
il programma 

Otto volante aiuterà a insegnare ai 
bambini piccoli anche i nomi dei nu¬ 
meri da 0 a 10 animando e presentan¬ 
do i numeri sullo schermo con 
Taccompagnamento del suono. 


Il programma inizia con tutte le 
istruzioni necessarie per farlo girare 
correttamente. Apparirà sullo scher¬ 
mo in alta risoluzione un numero ca¬ 
suale: si deve dire il numero al bambi¬ 
no e farselo ripetere da lui, dopo di che 
si può far trovare dal piccolo il tasto (o 
i tasti) che ha l’aspetto del numero 
sullo schermo. Un bambino di due am 
ni, dopo i primi tentativi, può già ini¬ 
ziare a procedere senza aiuto. Se viene 
premuto il tasto giusto si avrà un’im¬ 
magine in Hi-Res di Topolino con ac¬ 
compagnamento di musica (se si deci¬ 
de di volere la musica). La cosa impor¬ 
tante è far dire al bambino il nome del 
numero che c’è sullo schermo. 


Per insegnare ai bambini che un due non è un tre 
l’eroe di Walt Disney diventa protagonista di Otto 
volante. Così con numeri che rimbalzano e topolini 
colorati i più piccoli imparano che ogni numero ha la 
sua forma prima di conoscerne il valore. 


Topolino 
dà i numeri 








Una organizzazione di specialisti ed 
esperti nel settore dei computers. 




Consulenza scelta 
sistema. «Consegne 
immediate anche presso 
loro sedi.«Software 
italiano ed estero. 
•Assistenza hardware e 
software. 

•Addestramento clienti 
durante l’installazione sia 
presso di loro che nella 
propria sede anche con 
corsi appositamente 
predisposti. 

•Offerte promozionali. 


rivenditori e centro 
assistenza tecnica 
autorizzati. 

g|applc computer 

Esposizione e vendita: 

Via Aureliana 41/43/45, 

Roma(0O475^6^758460 


2 REM ********************** 

3 REM * OTTO VOLANTE * 

4 REM * COPYRIGHT <0 1984 * 

5 REM * BY APPLICANDO * 

6 REM * AND MICROSPARC * 

7 REM ********************** 

10 TEXT i HOME : VTAB 12; PR1NT 1 
COPYRIGHT 1984 APPL1CWD0 & M 
ICROSPARC": PRINT CHR$ (4);' 
BLOAD SUONI 1 

15 PRINT CHR$ (4)j"BLOAD TAVOLA 
NUMERI’: HIMEM: 8192: DIM Ad 
1):A = 37: HOME : SPEED= 0:SN 
= - 16336 

20 FOR I = 3 TO 10: HTAB I: VTAB 
10 

25 PRINT -* - :S0 * PEEK (SN) - PEEK 
(SN):A = A - 2: HTAB (I ♦ A): 
VTAB 10: PRINT -*-:SQ = PEEK 
(SN) - PEEK (SN) 

30 NEXT I: SPEED= 255 
35 VTAB 10: HTAB 11: FLASH : PRINT 
' OTTO VOLANTE ': N0RNAL 

40 FORI* 1 T0 11: FOR T * 1 T0 
500: NEXT T: CALL - 912 
45 SO* PEEK (SN) - PEEK (SN): NEXT 
L 

47 HTAB 11: INPUT "ISTRUZIONI <S/ 

N) ?";A$ 

48 IF A$ * "N" THEN 105 

49 HOME : HTAB 15: VTAB 2: INVERSE 

: PRINT -ISTRUZIONI-: N0RMAL 
: PRINT 

50 VTAB 7: PRINT “OTTO VOLANTE E' 

UN PR06RAMMA EDUCATIVO PER 
BAMBINI IN ETÀ 7 PRESCOLARE.': 
PRINT : PRINT 'SCOPO DEL 610 
CO E' QUELLO DI IMPARARE LA 


FORMA DI CISCUN NUMERO.’: PRINT 
: PRINT -SULLO SCHERMO COMPAR 
IRA' CASUALMENTE UN NUMERO CH 
E IL BIMBO DOVRÀ' RIPRODURRE" 

55 PRINT -PREMENDO IL RELATIVO TA 
STO.-: PRINT : PRINT ’A NUMER 
0 INDOVINATO MICKY MOUSE SI': 

PRINT -CONGRATULERÀ' PER LA 
FELICE RISPOSTA. 1 

85 VTAB 22: PRINT '** UN TASTO QU 
ALSIASI PER CONTINUARE **': GET 
Al 

90 HOME : HTAB 11: VTAB 10: PRINT 
"BATTI IL TASTO <♦>- 

95 HTAB 8: VTAB 12: PRINT 'PER US 
CIRÉ DAL PROGRAMMA" 

100 VTAB 22: PRINT '** UN TASTO Q 
UALSIASI PER CONTINUARE **’: GET 
Ai 

105 HOME : VTAB 12: PRINT -QUANTI 
TENTATIVI PER OGNI NUMERO ?" 

110 PRINT : INPUT -INSERISCI UN N 
UNER0 DA 1 A 5 :';G: PRINT : PRINT 

115 IF (G > 0) MD (G < 6) THEN 1 
25 

120 PRINT 'HO DETTO UN NUMERO DA 
1 A 5 !!": FOR T * 1 T0 2000: 

NEXT T: GOTO 105 

125 HOME : HTAB 7: VTAB 11: PRINT 
•VUOI 6LI EFFETTI SONORI <S/N 
) ?": GET Zi 

130 IF (Zi * -N-) OR (Zi * -S') THEN 
140 

135 GOTO 125 

139 REM *** DISEGNA TOPOLINO *** 


Per caricarlo 
senza sbagliare 

Per prima cosa si dovranno digitare 
e caricare le “tavole delle figure” e il 
“generatore del suono”. Si digitino le 
tavole da $6000 a $6100 utilizzando il 
monitor di sistema mediante CALL- 
151. Una volta digitate le tavole delle 
figure si batta BSAVE NUMBER 
TABLE, A$6000,L$1CD e si prema 
RETURN. Poi si può digitare il gene¬ 
ratore di suono da $0302 a $0316, e 
introdurre BSAVE MSOUND, 
A$302, L$16 e RETURN. Quindi si 
digiti il programma in Applesoft. 


Ecco la lista 
delle variabili 

A$ usata per il controllo del¬ 
l’input. 

A() tiene il posto al numero casuale. 
A usata per input dei numeri nelle 
funzioni math. 

B usata per numero HCOLOR e 
subroutine di tastiera. 

B$ conserva l’input da tastiera nella 
subroutine. 

C mette da A(l) a A(ll) a zero. 
D usata nei loop che mescola i nu¬ 
meri. 
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140 

145 


150 


POKE 232,1*. POKE 233.96: HGR2 
: TEXT j HOME : HCOLOR 3 3 
HPLQT 75.106 TO 76-111 TO 79, 
119 TO 90,128 TO 105,133 TO 1 
18.133 TO 124.138 TO 129.140 TO 
136,146 TO 142,145 TO 148,134 


HPLOT 145,140 TO 154,138 TO 1 
65.132 TO 182.118 TO 187,110 TO 
189,102 TO 189,93 TO 193,102 TO 
200.107 TO 217,111 
155 HPLOT 217.111 TO 237.107 TO 2 
47.99 TO 250.81 TO 245,71 TO 
236,65 TO 222,60 TO 211,62 TO 
201 1 66 TO 196.70 TO 190 78 
160 HPLOT 190.78 TO 188.70 IO 186 
.66 TO 180,60 TO 188.59 TO 19 

9.60 TO 211.56 TO 216.46 TO 2 
15,35 TO 207,24 TO 192,15 

165 HPLOT 192.15 TO 178.11 TO 165 
,11 TO 155.15 TO 149.23 TO 14 
7.33 TO 150.41 TO 155.48 TO 1 
46.44 TO 129,40 TO 140,46 TO 
13Ì.44 

170 HPLOT 133.44 TO 123,46 TO 131 
.48 TO 124,51 TO 115.54 TO 10 

5.61 TO 96’75 TO 94.84 TO 94, 

93 TO 89,92 TO 82,95 

175 HPLOT 82.95 TO 79,89 TO 76.87 
TO 70,87 TO 66.91 TO 65.98 TO 

70.103 TO 75,106 TO 80,107 TO 

85.103 TO 83,94 

180 HPLOT 95,92 TO 102,95 TO 109, 
100 TO 112.105 TO 115.110 
185 HPLOT 117,130 TO 125,128 TO 1 
34.125 TO 140.120 TO 140,115 TO 
140,124 TO 143,130 TO 141,135 
TO 138,140 TO 136,139 TO 131 
.135 TO 133.125 

190 HPLOT 142,129 TO 137,132 TO 1 
38.135 TO 136,131 TO 132,135 
195 HPLOT 131,116 TO 137,114 TO 1 
44.115 TO 149,117 
200 HPLOT 160,135 TO 166,122 TO 1 
70.111 TO 167,104 TO 161,99 TO 
153,97 TO 142 100 TO 128.105 TO 
138,95 TO 147 83 TO 150,74 TO 
152164 

205 HPLOT 152.64 TO 150.57 TO 146 
.54 TO 143.53 TO 137.55 TO 13 
0.61 TO 132,56 TO 132,50 TO 1 
29.50 

210 HPLOT 136.78 TO 133,72 TO 130 
.70 TO 12$.73 

215 HPLOT 115.70 TO 114,64 TO 113 
.63 TO 106.67 

220 HPLOT 111.103 TO 117.100 TO 1 

22.94 TO 125.87 TO 123.79 TO 
120,79 TO 114,81 TO 111,87 TO 

109.94 TO 107,99 

225 HPLOT 103.94 TO 105,90 TO 108 
.85 TO 110,74 TO 106.71 TO IO 
2^74 TO 99,81 TO 97,87 TO 98, 

230 HPLOT 123,89 TO 121,89 TO 118 
.90 TO 115.94 TO 116.100 
235 HkOT 108.80 TO 106.81 TO 103 
.85 TO 102,88 TO 105,93 
240 GOSUB 5000 

244 REM *« DISEGNA IL RIQUADRO 

»t* 

245 U 3 0: H6R 

250 U * U ♦ IsTRY 3 0 

255 IF W 3 12 THEN 240 

260 IF Q 3 1 THB4 340 

265 A * IKT <7 * RND (D) ♦ 1 

270 IF A 3 4 THEN 265 

275 FOR I 3 10 TO 139 STEP 2 

280 HCOLOR 3 A 

285 HPLOT 50,1 TO 60,1 

290 NEXT 

295 FOR I 3 140 TO 145 STEP 2 
300 HPLOT 50.1 TO 220,1 


305 NEXT 

310 FOR I 3 144 TO 10 STEP - 2 
315 HPLOT 220,1 TO 230,1 
320 NEXT 

325 FOR I = 10 TO 15 STEP 2 
330 HPLOT 220,1 TO 60,1 
335 NEXT 

340 B = INT (7 # RND <1» ♦ 1 


345 

350 

355 

360 

365 

370 

375 

380 

385 

390 

395 

400 

405 

410 


1000 

1005 

1010 


IF B = 4 THEN 340 
FOR I 3 9 TO 140 STEP 2 
HC0LOR= B 
HPLOT 50,1 TO 60,1 
NEXT 

FOR I 3 141 TO 145 STEP 2 
HPLOT 50,1 TO 220,1 
NEXT 

FOR 1 3 145 TO 9 STEP - 2 
HPLOT 220,1 TO 230,1 
NEXT 

FOR I = 9 TO 14 STEP 2 
HPLOT 220,1 TO 60,1 
NEXT 
415 8 3 1 

420 E 3 INT (3 * RND (1)) ♦ 1 
425 ON E GOTO 1000,2000.3000 
999 REM ROTW IL NUMERO METT0«)O 
LO SULLO SCHERMO 
HCOLOR 3 3: SCALE 3 1:M 3 10 
FOR R 3 0 TO 64 STEP 16 
ROT 3 R 
1015 M 3 M ♦ 25 

1020 SO 3 PEEK (SN) - PEEK <SN) - 
PEEK (SN) - PEEK CSN) 

1025 XDMU Atti) AT M.79 
1030 FOR T 3 1 TO 150: NEXT T 
1035 SO 3 PEEK (SN) - PEEK (SN) 
1040 XDRAU A(U) AT M,79 
1045 NEXT R 

1050 SO 3 PEEK (SN) - PEEK <9N) - 
PEEK (SN) 

DRAU A(U) AT 139,79 
80SUB 6080 

XDRAU A(W) AT 139,79: GOTO 2 
50 ^ 

REM FA BtfRARE 01 CORSA IL 
NUMERO SULLO SCHERMO 
HCOLOR 8 3: ROT 3 0: SCALE 3 1 
FOR I 3 265 TO 139 STEP - 1 
5 

2010 SO 3 PEEK (SO) - PEEK (SN) 
2015 XDRAU A(U) AT 1,79 
2020 NEXT 

2025 FOR I 3 265 TO 139 STEP - 1 
5 

2038 SO 3 PEEK (SO) - PEEK (SO) 
2035 XDRAU A(U) AT 2,79 

2055 80S0B 6000 

XDRAU A(U) AT 139,79 : 6OT0 2 
50 

REM FA SCHIZZARE IL NUMERO 
SULLO SCREMO 

HCOLOR 3 3: SCALE 3 1: ROT 3 0 
FOR I 3 1 TO 5 


1055 

1060 

1065 

1999 

| 

2000 
2005 


2060 

2999 


3000 

3005 


3010 X 3 INT (200 i RM> <1» ♦ 2 
0 

3015 Y 3 INT (100 * RND (D) ♦ 2 
0 

3020 XDRAU A(W) AT X,Y 
3025 SO 3 PEEK (SN) - PEEK (SN) - 
PEEK (SN) - PEEK (SN) - PEEK 
(SN) - PEEK (SN) 

3030 FOR T 3 1 TO 150: NEXT T 
3035 XDRAU A(U) AT X,Y 
3040 SO 3 PEEK (SN) - PEEK (SN) - 
PEEK (SN) - PEEK (SN) - PEEK 
(SN) - PEEK (SN) 

3045 NEXT I 

3050 DRAU A(U) AT 139,79 
3055 SO 3 PEEK (SN) - PEEK (SN) 

3060 60SUB 6000 

3065 XDRAU A(U) AT 139,79: GOTO 23H 



F controlla che non ci siano due 
numeri uguali quando si mescola. 

G tentativo. 

I usata in loop 
L usata in loop. 

M usata per manipolare le forme 
dei numeri. 

Q usata per cambiare il primo co¬ 
lore del riquadro ogni volta che i nu¬ 
meri ricominciano. 

R rotazione dei numeri. 

SN numero con cui leggere (peek) il 
suono. 

SO suono. 

T ritardo. 

TRY numero di tentativi per ciascun 
numero. 

W contatore. 

X tracciamento X del numero. 

Y tracciamento Y del numero. 

Z usata per controllo del suono. 

Come funziona 

Linee 1-15 Qui si fa un po’ di lavoro 
domestico, impostando e dimensio¬ 
nando le variabili. Inoltre si caricano il 
generatore del suono e le tavole delle 
figure. HIMEM viene impostato su 
8192 ($2000) per proteggere le pagine 
1 e 2 della grafica ad alta risoluzione. 
Per meglio comprendere questo punto 
si veda la Figura 1. 

Linee 20-135 Qui le linee di codice 
provvedono alla presentazione, al nu¬ 
mero dei tentativi, a programmare o 
no la musica. 

Linee 140-235 Qui si traccia il topo per 
la risposta esatta. Si potrebbe dare 
un’occhiata da vicino alla linea 140. È 
qui che viene predisposto lo schermo 
secondario Hi-Res. Facendo 
HGR2 : TEXT : HOME iHCOLOR=3 
si inserisce lo schermo Hi-Res secon¬ 
dario e poi si torna al modo testo. 
HCOLOR è impostato su tre 
(3=bianco): si può tracciare l’immagi¬ 
ne sullo schermo HGR2 senza che il 
bambino veda qual è. Nella linea 140 
vengono inoltre impostati i puntatori 
per la nostra tavola delle figure (spie- 
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sempre più potenti a prezzi sempre piu bassi. 
La serie DXY dei plotter ROLAND rappresenta il 
risultato più significativo di questo progresso. 

Fino a ieri i plotter erano considerati macchine costose 
adatte solo ad impieghi industriali o scientifici, 
normalmente inaccessibili ad utilizzatori di personal 
computer. Oggi i plotter ROLAND, grazie alle loro 
prestazioni assolutamente professionali ed al loro 
prezzo estremamente contenuto, allargano le 
possibilità di impiego ad applicazioni finora mai 
consentite I plotter ROLAND possono essere affiancati 
ai personal computer più diffusi grazie alla notevole 
flessibilità di interfacciamento. 

La ROLAND offre oggi sicuramente il plotter con il miglior 
rapporto prezzo/prestazioni. 
ROLAND segna l'inizio ai una nuova era: quella del 


COMPUTER GRAPHICS DIVISION 

MILANO: Via t. da Vinci, 43 - 20090 Tnezzano S/N 
Tel. 02/4455741/2/3/4/5 - Tlx: 312827 TELINT I 
ROMA: Vio Salario, 1319 - 00138 Roma 
Tel. 06/691 7058 - 69 ! 9312 - Tlx. 614381 TINTRO I 
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3999 REM NQSTM H6R2 CON 0 SENZA 
MUSICA 

4000 POKE - 16302,0: POKE - 162 
99,0 

4005 IF Z4 = "N" THEN 4070 

4010 POKE 768,193: POKE 769,150: CALL 
770 

4015 POKE 768,193: POKE 769,50: CALL 
770 

4020 POKE 768,193: POKE 769,175: CALL 
770 

4025 POKE 768,193: POKE 769,150: CALL 
770 

4030 POKE 768,193: POKE 769,50: CALL 
770 

4035 POKE 768,193: POKE 769,175: CALL 
770 

4040 POKE 768,153: POKE 769,100: CALL 
770 

4045 POKE 768,193: POKE 769,80: CALL 
770 

4050 POKE 768,172: POKE 769,80: CALL 
770 

4055 POKE 768,199: POKE 769,100: CALL 
770 

4060 POKE 768,193: POKE 769,100: CALL 
770 

4065 POKE - 16302,0: POKE - 163 
00.0: RETURN 

4070 FÓR 1 = 0 TO 2000: NEXT : POKE 
- 16302.0: POKE - 16300,0: RETURN 

4999 REM MESCOLA I NUMERI 

5000 H6R : 6R : HOME : HTAB 10: VTAB 
22: HTAB 9: PRIMI “UN ATTIMO 

DI PAZIENZA!': KTAB 8: PRINT 
"STO MESCOLANDO I NUMERI' 

5005 FOR C = 1 TO 11:A(C) * 0: NEXT 
C 

5010 FOR D * 1 TO 11 

5015 N = INT (11 * RND <D) ♦ 1 

5020 FOR F * 1 TO 11: IF A(F) = N 


THEN 5015 

5025 COLOR= N:X = INT (39 * RND 
<1)):Y = INT (39 * RND (1» 

: PLOT X.Y 

5030 SO « PEEK <- 16336): NEXT F 

5035 A(D) = N: NEXT D 

5040 OR : HOME :Q = 0: RETURN 

5999 REM ROUTINE DI IMMISIONE DA 
TASTIERA 

6000 IF Atti) = 11 THEN 6045 

6005 GET A4: A = ASC (A4): IF A = 

43 THEN TEXT : HOME : VTAB 1 
2: HTAB 15: PRINT "SEE YOU SO 
ON': END 

6010 IF (A < 48) OR (A ) 57) THEN 
6005 

6015 A = VAL (A4): IF A ( > A(U) 

- 1 THEN 6030 
6020 60SUB 4000 
6025 RETURN 

6030 FOR I = 0 TO 100:SO = PEEK 
( - 16336): NEXT I 
6035 TRY = TRY ♦ 1: IF TRY = 6 THB( 
RETURN 

6040 GOTO 6000 

6045 GET A4:A = ASC (A4): IF A = 

43 THEN TEXT : HOME : VTAB 1 
2: HTAB 15: PRINT 'SEE YOU SO 
ON": END 

6050 IF (A < 48) OR (A ) 57) THB( 
6045 

6055 GET B4:B = ASC (B4): IF (B < 
48) OR (B > 57) THEN 6055 
6060 A = VAL (A4):B = VAL (B4): IF 
(A = 1) AND (B = 0) THEN 6070 

6065 GOTO 6030 
6070 GOSUB 40011 
6075 RETURN 



gati a pagina 96 dell’Apple Reference 
Manual). 

Linee 244-410 Qui viene disegnato il 
riquadro nel quale finiranno i numeri. 
Il riquadro comparirà sullo schermo a 
colori, che non sono solo gli otto otte¬ 
nibili con l’aiuto del manuale: ne pos¬ 
siamo avere più di otto mescolandoli 
due a due. La prima volta che si dise¬ 
gna il riquadro si vedrà uno spazio fra 
riga e riga. Il riquadro successivo viene 
disegnato, in un colore diverso, pro¬ 
prio sopra, ma abbassato da una riga 
di puntini rispetto al precedente riqua¬ 
dro: i due colori sembrano mescolarsi 
in un nuovo colore. Sono le linee 265 e 
340 a scegliere i due colori da mescola- 
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NOVITÀ 

BUFFER PER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 

Memorizza immediata¬ 
mente 8 kbyte in uscita 
dal calcolatore e li invia 
successivamente alla stam¬ 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 

L. 250.000* 


min 

C.so Italia, 149 
34170 Gorizia 

VENDITA PER 
CORRISPONDENZA 


PER APPLE 

Drive 5" con doppio 


controller 

L. 770.000 

Drive aggiuntivo 

L. 680.000 

Interfaccia stampante 


St. Centronics 

L. 80.000 

Interfaccia stampante 


Centronics per Epson 


con grafica 

L. 130.000 

Come sopra per 


Centronics 739 

L. 150.000 

Espansione 16K 


Language Card 

L. 99.000 

Espansione di memoria 


Max iram 16K 

L 150.000 

Interfaccia seriale 


bidirezionale RS232C 

L. 160.000 

Stampante Oki 80 


(parallela) 

L. 720.000 

ULTIME NOVITÀ 

Replay scheda per la copiatura 

di tutti i programmi 

L. 188.000 

Per Apple//e 80 colonne 

+ 64 K 

L. 198.000 

* N.B. Tutti i prezzi sono comprensi¬ 

vi di IVA e spese di spedizione. 


re. Il riquadro 1 è disegnato dalle linee 
265-335 e il riquadro 2 dalle linee 340- 
410. Quindi, ogni volta che si è stanchi 
di avere soltanto otto colori con cui 
lavorare, si possono usare due loop 
FOR-NEXT. 

Linee 420-425 Qui viene scelta la routi¬ 
ne per la visualizzazione del numero 
sullo schermo. 

Linee 1000-1065 I numeri arrivano ro¬ 
teando sullo schermo grazie all’uso del 
comando ROT. (Si trovano altri parti¬ 
colari a pagina 99 dell’Applesoft Ma- 
nual). 

Linee 2000-2060 Questa routine farà 
entrare il numero di corsa sullo scher¬ 
mo disegnando con XDRAW sopra il 
numero quando compare, in modo 
che esso sembra spostarsi attraverso lo 
schermo. Per far muovere il numero lo 
si disegna con XDRAW in un loop 
FOR-NEXT, miscelando un po’ di 
suono aH’immagine. 

Linee 3000-3065 II numero schizzerà 
sullo schermo usando il tracciamento 
casuale di X e Y in un loop FOR- 
NEXT che stabilisce quante volte far 
saltare il numero prima di centrarlo. 
Linee 4000-4070 Nella linea 4000 si in¬ 
serisce lo schermo HGR2 facendo due 
POKE. POKE-16302,0 imposterà il 
modo di tutta grafica su ON, e POKE- 
16299,0 visualizzerà lo schermo 
HGR2 senza prima pulirlo. In tal mo¬ 
do il topo caricato all’inizio del pro¬ 
gramma sarà sempre lì; non ci sarà 
bisogno di ridisegnarlo ogni volta che 
si va allo schermo HGR2. È inoltre 
possibile lampeggiare fra i due scher¬ 
mi, con un effetto di animazione. 

La linea 4065 fa tornare alla pagina 
primaria (HGR) della grafica (o la li¬ 
nea 4070 se non si voleva la musica). 
La pagina 13 dell’Apple Reference 


Figura 1. Mappa della memoria del 
programma «Otto volante». 




Manual entra in maggiori particolari 
circa il modo di passare da schermo a 
schermo. Inoltre si carica la musica 
per il generatore di suono fra le linee 
4010 e 4070. Se si vuol provare qualche 
musica propria si carichi nell’Apple 
solo il generatore di suono da $0302 a 
$0316. Adesso si faccia POKE 768,P: 
POKE 769 ,D: CALL 770 (P è per l’al¬ 
tezza del suono e D per la durata). 
Approssimativamente, il numero per 
l’altezza di ciascuna nota musicale è 
do=193, re=172, mi—153, fa—145, 
sol=129, la—115, si=103, C=97, ma 
qualsiasi numero compreso fra 0 e 255 
funzionerà . 

Anche la durata (D) funzionerà con 
i numeri da 0 a 255; si provi press’a 
poco 100 per cominciare e si lavori da 
questo punto. Il CALL 770 inserirà il 
generatore di suono. Si può giocarci e 
ricavarne qualche bel suono. 

Linee 5000-5040 Qui si mescolano i 
numeri. La linea 5000 predispone lo 
schermo. A linea 5005 si imposta la 
matrice A( ) su tutti zeri. La linea 5015 
prende un numero casuale da 0 a 10 e 
lo mette nella variabile N. Poi a 5020 si 
deve controllare che sia stato inserito 
un solo esemplare di ciascun numero 
da 0 a 10. I numeri saranno in ordine 
casuale. 

Linee 6000-6075 I piccoli si trovereb¬ 
bero a disagio se dovessero premere il 
tasto RETURN dopo ogni immissio¬ 
ne. A questo sopperisce la routine di 
tastiera. Usando il GET A$ si elimina 
la necessità di premere il tasto RE¬ 
TURN. Trovando il valore ASC per 
A$, e provandolo poi per assicurarsi 
che sia un tasto da 0 a 10 o che non sia 
stato premuto il tasto “+”, si blocca 
efficacemente la tastiera con l’eccezio¬ 
ne dei tasti designati. Se viene premu¬ 
to il tasto “+” si mette fine al program¬ 
ma. Se si è usciti dall’arco dei valori 
ASC da 48 a 57 (da 0 a 10) bisogna 
tornare indietro e ritentare. E qui, 
inoltre, che si deve controllare se il 
tasto premuto corrisponde allo stesso 
numero apparso sullo schermo. ■ 
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Pirata, Locksmith 5, Wildcard: non c’è metodo di 
protezione che renda incopiabile un programma. È possibile 
però impedire a qualche curioso di ficcanasare in programmi... 
Questa piccola routine, oltre che a proteggere il disco 
da occhi indesiderati, offre anche altre possibilità, 
come disabilitare le normali vie d’uscita con i tasti Reset ó Escape. 


Programmi 
top secret 


V 

E inutile, non c’è sistema di prote¬ 
zione che non sia già stato scoper¬ 
to e annullato. Dopo il Pirata, ben 
presto sostituito dal Locksmith 4.1 e 
poi ancora dal più efficace Locksmith 
5.0, come risposta ai nuovi sistemi di 
salvaguardia dei. programmi è ora en¬ 
trato in commercio anche Wildcard 
plus, un’interfaccia che inserita in uno 
slot dell’Apple spazza letteralmente 
via ogni tipo di protezione. Wildcard 
plus è commercializzata dalla Easy Si¬ 
de, una società americana, a un prezzo 
che si aggira attorno ai 200 dollari. 

In Italia, almeno ufficialmente, non 
è ancora arrivata. 

Tenuto conto di tutto questo biso¬ 
gna rassegnarsi dunque a subire i rischi 
di copiature indesiderate. È però pos¬ 
sibile mantenere una certa privacy di 
software, impedendo ai più curiosi, 
per esempio i colleghi di lavoro, gli 
amici applemaniaci che si avventurano 
per casa, di ficcare il naso in un di¬ 
schetto, magari personale, o di listare 
programmi che si desidera mantenere 
segreti. Disk-Block, il programma 
proposto in queste pagine, oltre che a 
proteggere l’accesso al dischetto tra¬ 
mite una parola chiave, offre la possi¬ 
bilità di disabilitare il tasto Reset e le 
altre normali vie d’uscita con il tasto 
Escape. 

Come lavora 

Il listato comincia alla linea 10 dove 
viene pulito lo schermo e cambiati nel¬ 
la memoria alcuni poke per disabilita¬ 
re il tasto Reset. I valori messi nelle 
locazioni 1010 e 1011 conducono ad 
una terza locazione (-10906) che porta 


a far ripartire il programma ogni volta 
che si preme Reset. Il valore sostituito 
nella locazione 214 pone i comandi 
Applesoft uguali a Run per rendere 
impossibile listare il programma con 
strani giri di comandi. 


In linea 20 inizia la routine per inse¬ 
rire la parola chiave e viene generato il 
loop per la lunghezza dell’input. Il nu¬ 
mero 15 può essere sostituito con un 
altro qualsiasi minore di 255, questo 







10 TEXT : HOME : POKE 1011,213: POKE 1012,112: POKE 1010,102: POKE 214,128: 

ONERR GOTO 150 
20 FOR 1 = 1 TO 15 

30 VTAB 22: PRINT 'COPYRIGHT 1984 - APPLICANDO 4 MICRQSPARC':A4 = 'CODICE A 
CCESSO - ': VTAB 12: PRINT A4 
40 GOSUB 140: SET 24: IF 24 = CHR4 <13) THEN 90 
50 IF 24 = CHR4 (32) OR 24 = CHR4 (21) THEN 70 
60 PRINT CHR4 (88): GOTO 80 
70 PRINT CHR4 (32): GOTO 80 
80 K4 = K4 ♦ 24: NEXT I 
90 IF K4 = 'PAROLA CHIAVE* GOTO 120 
100 HOME : VTAB 12: FLASH : PRINT 'CODICE ERRATO': NORMAL 
110 FOR X = 1 TO 3000: NEXT : HOME : CLEAR : GOTO 20 
120 HOME : VTAB 12: PRINT 'ACCESSO CONSENTITO': POKE 1011,157: POKE 1012,56 
: POKE 1010,191: POKE 214,0 
130 POKE 216,0: END 

140 VTAB 12: HTAB LEN (A4) + I: RETURN 
150 IF PEEK (222) = 255 THEN RUN 

Listato 1 


lo applico, 
tu applichi? 

La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per cambiarlo 
con un Apple//e. 

O con un Lisa. 

O con un Apple Ile, Apple III. 
O con un Macintosh. 
Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 
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verrà stabilito in base alla parola d’ac¬ 
cesso scelta. 

Dalla linea 30 alla linea 80 viene 
chiesta la parola chiave e viene chia¬ 
mata la subroutine in linea 140 che 
pone il cursore nella posizione cor¬ 
retta. 

Il controllo dell’input inserito avvie¬ 
ne alle linee 90-120 che se corrisponde 
alla parola chiave rimanda alla linea 
120 dove ogni cosa viene riportata alla 
propria funzione, se invece qualcosa 
non funziona il computer vi dirà che 
avete sbagliato e farà ripartire il pro¬ 
gramma. In linea 130 la fine dèi pro¬ 
gramma. 

Come si usa 

È sufficiente digitare il listato pro¬ 
posto. La parola chiave fissata alla li¬ 
nea 140 può essere sostituita con un’al¬ 
tra qualsiasi. È consigliabile inserire il 
programma nell’Hello del dischetto 
oppure di sistemarlo all’inizio di un 
listato particolarmente segreto. In 
questo caso sarebbe inoltre opportuno 
sostituire la linea 130 END con un 
GOTO al numero di linea di inizio del 
programma. Attenzione però a non 
dimenticare la parola chiave. 

Ecco un elenco delle istruzioni Peek 
e Poke presenti nel listato con il loro 
significato e il relativo corrispondente 
in esadecimale. La linea 10 contiene i 
tre valori che disabilitano il tasto reset 
trasformandolo nella istruzione RUN. 
Sono Poke 1011,213, 1012,112, 
1010,102, e trovano il parallelo in esa¬ 
decimale nei valori $3F2.3F4, cioè 
quelli relativi alla fascia decimale che 


va da 1010 a 1012. Il successivo Poke, 
214,128, fa partire il programma ogni 
volta che si preme return, indipenden¬ 
temente dal comando o dal carattere 
battuto. Il valore in esadecimale di Po¬ 
ke 214 corrisponde a $D6. Alla linea 
120, dove il programma arriva solo se 
la parola chiave inserita è esatta, i Po¬ 
ke tornano nelle locazioni di partenza 
e cioè: Poke 1011,157, Poke 1012,56, 
Poke 1010,191, Poke 214,0, con le 
stesse fasce di valori esadecimali. 

Il Poke 216,0 (esadecimale $D8) al¬ 
la linea successiva, la 130, è necessario 
per contrastare l’impiego dell’istruzio¬ 
ne ONERR, linea 150, consentendo 
nello stesso tempo di trattare gli errori 
nel modo consueto. Il Peek (222) in 
linea 150 segnala invece il codice, e di 
conseguenza il tipo, dell’erore e trova 
la corrispondenza in esadecimale in 
$DE. ■ 













Registrare su nastro una copia dei programmi 
più importanti significa risparmiare tempo e denaro. 
Importante però è riuscire a rendere automatica l’operazione. 
Per questo basta tenere presente che... 


Una cassetta 
di salvataggio 



ARCHIVIO PER appi p 

<c > applicando 

* "'CPO-SKn 

3> fine SC nastro 

j 

j 

——*- _ ■ ;■ 


U na sera stavo allegramente pro¬ 
grammando con il mio Apple II, 
per modificare un programma in mo¬ 
do che funzionasse con la mia stam¬ 
pante. Cambiavo alcune linee, salvavo 
di nuovo il mio programma sul di¬ 
schetto, cambiavo qualche altra linea 
e tornavo a salvarlo, finché mi sembrò 
che tutto funzionasse in modo soddi¬ 
sfacente. Eseguendo la prova finale 
stabilii di interromperlo e battei un 
CTRL-C. A questo punto decisi di sal¬ 
vare questa versione come program¬ 
ma definitivo. Ma, secondo ogni appa¬ 
renza, il CTRL-C eseguito aveva la¬ 
sciato qualche file in cattivo stato, per¬ 
ché cercavo di salvare il mio program¬ 


ma e il dischetto continuava a girare, a 
girare e a girare. 

Ebbene, mi dissi, nessun problema. 
Rifarò il booting e poi potrò salvare il 
programma. Ma il booting del dischet¬ 
to non andava troppo bene. Anzi, rifa¬ 
cendo il booting da un altro dischetto e 
cercando poi il “catalog” del dischetto 
originale ricevevo il temuto “I/O ER- 
ROR”. Un dischetto partito, e nessun 
dischetto di riserva a disposizione. 

Utilizzando una routine di riversa¬ 
mento a settore/traccia che avevo 
scritto in precedenza riuscii a stabilire 
che non si poteva leggere le directory. 
Scorrendo il dischetto potei accertare 
quali programmi avevo perduto, ma 
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con queirultimo tentativo di salvatag¬ 
gio del programma era andato perso 
un mucchio di tempo ed ero stato co¬ 
stretto a un vero e proprio superla¬ 
voro. 

La soluzione ideale sarebbe quella 
di tenere, e aggiornare regolarmente, 
un dischetto di riserva di ciascun di¬ 
schetto. Ma i dischetti non sono certo 
a buon mercato, e tenere sottomano 
un doppione dischetto «per il caso che 
succeda qualcosa» sembra un po’ di¬ 
spendioso. D’altro canto ci si può per¬ 
mettere di perdere molti file, siano es¬ 
si programmi o file di testo/dati? Le 
cassette offrono un metodo relativa¬ 
mente poco costoso per fare una copia 
di riserva delle informazioni. Dopo 
tutto, per un anno intero dopo aver 
ricevuto il disk drive, avevo usato 
esclusivamente le cassette e non avevo 
mai perso un programma. 

Purtroppo il tempo necessario per 
salvare ciascun programma sarebbe 
stato sicuramente di ostacolo all’im¬ 
piego delle cassette. Inoltre il salva¬ 
taggio dei text file sarebbe stato una 
cosa intricata. Per quanto la copia di 
riserva su cassette sembrasse la cosa 
giusta da fare sul piano economico, il 
tempo in più necessario, e l’irritazione 
in aggiunta, ne facevano secondo ogni 
apparenza un’alternativa pressoché 
inaccettabile. A meno che l’operazio¬ 
ne non potesse essere realizzata in mo¬ 
do automatico. 

Copia di riserva 
automatica 

Fu a questo punto che decisi di met¬ 
termi a studiare la stesura di un siste¬ 
ma che consentisse di fare la copia di 
riserva da dischetto a nastro. Intende¬ 
vo scrivere un programma che girasse 
in modo automatico, senza che doves¬ 
si star seduto a tener d’occhio la cas¬ 
setta, arrestandola o avviandola su se¬ 
gnale. Il risultato dei miei sforzi è il 
mio programma Archivio per Apple. 

C’erano molti metodi diversi che 
avrei potuto utilizzare per fare la copia 
di riserva di un dischetto. Una delle 
possibilità era quella di leggere le di¬ 
rectory per scoprire quali programmi 
ci fossero sul dischetto e poi caricare 
ciascuno di essi in memoria, ma sareb¬ 
be stato complicato, se non pressoché 
impossibile, evitare che il mio pro¬ 
gramma Archivio intervenisse. Inoltre 
i text file sarebbero stati difficili da 
salvare. Avrei potuto leggere l’intero 
dischetto e salvarlo su nastro, ma fa¬ 
cendo così si sarebbe sciupato un sacco 
di nastro e di tempo, con l’effetto di 
dissuadere dall’uso del sistema; e que- 


*800.05C 

0800- 20 39 FB A5 36 48 A5 3? 

0808- 48 A9 F0 85 36 A9 FD 85 

0810- 37 A9 1B 85 38 A9 FD 85 

0818- 39 A2 17 B5 £8 48 CA 10 

0820- FA BA 8E 59 OD AE 59 OD 

0828- 9A 20 8C 09 A2 00 20 45 

0830- 0B 20 BF 09 C9 B1 F0 24 

0838- C9 B2 F0 33 C9 B3 DO E5 

0840- A2 00 68 95 E8 E8 E0 18 

0848- 90 F8 68 85 37 68 85 36 

0850- A9 00 A8 99 00 02 C8 DO 

0858- FA 85 20 60 

DA NASTRO A DISCO 
08SC- A2 01 20 76 

0860- 09 A9 02 8D 49 OD 20 C6 

0868- 08 20 02 0B 4C 85 08 

DA DISCO A NASTRO 
086F- 20 

0870- 98 09 A2 02 20 76 09 A9 

0878- 01 8D 49 OD 20 CB 09 20 

0880- B3 08 20 C6 08 20 96 08 

0888- 20 E2 08 20 0E 09 A2 03 

0890- 20 45 0B 4C 2C 08 

PRENDE TRACCIA 11 SETTORE 0 
0896- A9 11 

0898- 8D 41 OD A9 00 8D 42 OD 

08A0- 20 83 0A EE 55 OD AD 49 

08A8- OD C9 01 DO AE 20 42 0A 

08B0- 4C DD 09 

CONTROLLA MEMORIA APPLE<32/48> 
08B3- A2 96 AD 00 80 

08B8- EE 00 80 CD 00 80 DO 02 

08C0- A2 56 8E 53 OD 60 

FISSA 1 PUNTATORI 
08C6- A9 00 

08C8- 8D 54 OD 8D 45 OD A9 0E 

08DQ- 8D 55 OD 80 46 OD A9 FF 

08D8- 8D 56 OD AD 53 OD 8D 58 

08E0- OD 60 
PRENDE LE DIRECTORY 
08E2- A9 11 8D 41 OD AC 

08E8- 35 0E 88 8C 42 OD AD 45 

08F0- OD 85 E8 AD 46 OD 85 E9 

08F8- 20 83 0A A0 01 B1 E8 8D 

0900- 41 OD C8 B1 E8 8D 42 OD 

0908- OD 41 OD DO E1 60 

PRENDE LA RIMANENZA DEL DISCO 
090E- A9 03 

0910- 8D 41 OD A0 44 AE 35 0E 


0928- 48 20 83 0A 68 A8 68 AAI 

0930- 68 CE 42 OD 30 07 CA DO 

0938- E8 C8 DO E0 C8 C8 C8 C8 

0940- EE 41 OD AD 41 OD C9 11 

0948- F0 F2 C9 23 90 C7 AD 49 

0950- OD C9 01 DO B8 A9 01 8D 

0958- 41 OD AD 46 OD 8D 58 OD 

0960- AC 35 0E 88 8C 42 OD AD 

0968- 52 OD F0 Al 20 83 0A CE 

0970- 42 OD 10 F3 30 EA 

INVIA I PR0MPT E ATTENDE 
RISPOSTA! 

0976- 20 42 

0978- 0B A2 08 20 45 0B 20 BF 

0980- 09 C9 A0 F0 07 C9 98 DO 

0988- F5 4C 25 08 

PULISCE LO SCHERMO 
098C- A9 00 85 20 
0990- 20 58 FC A9 0A 85 20 60 
PRENDE L'INTESTAZIONE 
0998- A2 07 20 42 0B A9 A0 85 

09A0- 33 20 6A FD A2 00 BD 00 

09A8- 02 C9 8D F0 07 95 EE E8 

Q9B0- E0 12 90 F2 E0 12 B0 12 

0988- A9 A0 95 EE E8 DO F5 

PRENDE RISPOSTA DA TASTIERA 
09BF- 8D 

09C0- 10 CO AD 00 CO 10 FB 8D 
09C8- 10 CO 60 
PREDISPONE L'INTESTAZIONE 
09C8- 20 8E FD A2 00 
09D0- 85 EE 20 F0 FD E8 E0 12 
09D8- 90 F6 4C 8E FD 
PREDISPONE IL TEMPO 
09DD- A9 00 85 

09E0- 20 A6 EC 20 00 0A A2 05 
09E8- 20 45 0B A9 B3 A6 ED E0 

Q9F0- 10 DO 02 A9 B6 8D C8 OC 

09F8- 20 93 09 A2 06 4C 45 08 

COPERTE L'INDICE IN X(0-N) 
NEL VALORE ASCII 
0A00- A9 00 8D 5A OD A9 50 8D 

OA08- 5B OD D8 CA 30 16 F8 AD 

0A10- 5B OD 18 69 45 8D 5B OD 

0A18- 90 F0 AD 5A OD 69 00 8D 

0A20- 5A OD DO E6 A2 00 AD 5A 

0A28- OD 20 30 0A E8 AD 58 OD 

0A30- 48 4A 4A 4A 4A 20 38 0A 

0A38- 68 29 0F 09 B0 9D M OC 

0A40- E8 60 


Ecco il listato, in linguaggio macchina, per il programma “Archivio” per Apple. D 
listato è suddiviso in una serie di gruppi consecutivi per illustrare con maggior 
chiarezza le varie fasi del programma. In sede di battitura, però, lo si dovrà 
riprodurre in modo continuo e senza salti. Per salvare il programma occorre battere: 
RSAVE ARCHIVIO PER APPLE, A$800,L$55C. 
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sto un sistema per la copiatura di riser¬ 
va non lo deve fare. 

Il metodo 




0918- 

CA 8E 

42 OD 

A2 

08 

89 

00 

0920- 

0E 0A 

B0 OD 

48 

8A 

48 

98 

0A48- 

44 A9 

00 8D 

57 

OD 

85 

EC 

0A50- 

A2 08 

B9 00 

0E 

0A 

80 

07 

0A58- 

E6 EC 

DO 03 

EE 

57 

OD 

CA 

QA60- 

DO F3 

AD 35 

0E 

38 

E9 

08 

0A68- 

AA C8 

98 4A 

B0 

E4 

C8 

C8 

0A70- 

CO C4 

90 DC 

6E 

57 

OD 

66 

0A78- 

EC 6E 

57 OD 

66 

EC 

46 

EC 

0A80- 

46 EC 

60 





CARICA DAL 1 

)1SCQ 





0A83- 

AD 46 

OD CD 

53 




0A88- 

OD 90 

0A AD 

49 

OD 

C9 

01 

OA90- 

F0 03 

20 02 

0B 

AD 

00 

CO 

0A98- 

C9 9B 

F0 40 

A9 

01 

8D 

52 

0AA0- 

OD A9 

OD AD 

3D 

20 

D9 

03 

0AA8- 

90 05 

A2 04 

20 

42 

0B 

EE 

OAB0- 

46 OD 

AD 46 

OD 

CD 

53 

OD 

QAB8- 

90 21 

AD 49 

OD 

C9 

01 

DO 

OAC0- 

1A AD 

58 OD 

80 

46 

OD 

20 

0AC8- 

DF 0A 

AD 54 

OD 

8D 

45 

OD 

0AD0- 

AD 55 

OD 8D 

46 

OD 

A9 

00 

0AD8- 

8D 52 

OD 60 

4C 

25 

AA 


SCRIVE SUL NASTRO 





0ADF- 

A2 






QAEQ- 

0E EE 

56 OD 

F0 

03 

AE 

55 

0AE8- 

OD 86 

EA AD 

46 

OD 

85 

EB 

0AF0- 

C6 EB 

20 33 

08 

20 

CD 

FE 

GAF8- 

A5 EA 

85 3D 

20 

26 

0B 

4C 

0B00- 

CD FE 






LEGGE 

DAL NASTRO 





0802- 

20 33 

08 20 

FD 

FE 



0B08- 

EE 56 

OD DO 

06 

20 

DD 

09 

0810- 

20 CB 

09 A5 

EA 

85 

3D 

8D 

0818- 

46 OD 

20 26 

0B 

8D 

53 

OD 

0820- 

EE 53 

OD 4C 

FD 

FE 



PREDISPONE PER LETTURA 



E SCRITTURA 

NASTRO 




0826- 

A9 00 






0B28- 

85 3C 

A9 FF 

85 

3E 

A5 

EB 

0B30- 

85 3F 

60 





PREDISPONE PER LETTURA 



0 SCRITTURA 

NASTRO 




0833- 

A9 EA 

85 3C 

A9 




0B38- 

FF 85 

3E A9 

00 

85 

3D 

85 

0840- 

3F 60 






SCRIVE MESSAGGIO 





QB42- 

20 8C 

09 A5 

EA 

48 



0848- 

A5 EB 

48 8A 

0A 

AA 

BD 

70 

0850- 

0B 85 

EA BD 

?! 

0B 

85 

EB 

0858- 

A0 00 

98 48 

81 

EA 

F0 

08 

0860- 

20 F0 

FD 68 

A8 

C8 

DO 

F2 

QB68- 

68 68 

85 EB 

68 

85 

EA 

60 

0B70- 

82 0B 

EC 0B 

2E 

OC 

64 

OC 


CONTA 

I ! 

SETTORI 

I IN USO 



0A42- 

AD 

35 

0E 

85 

ED 

A0 



0B78- 

7E 

OC 

8C 

OC 

BE 

OC 

D3 

OC 

0880- 

FD 

OC 







MESSAGGI 

SUL VIDEO 




0882- 

8D 

CI 

D2 

C3 

C8 

C9 



0B88- 

D6 

C9 

CF 

A0 

DO 

C5 

D2 

A0 

0890- 

CI 

DO 

DO 

CC 

C5 

8D 

A0 

A0 

0B98- 

A8 

C3 

A9 

A0 

Cl 

DO 

DO 

CC 

0BA0- 

C9 

C3 

CI 

CE 

C4 

CF 

8D 

A0 

0BA8- 

A0 

A0 

A6 

A0 

CD 

C9 

C3 

D2 

0BB0- 

CF 

AD 

D3 

DO 

Cl 

D2 

C3 

8D 

0BB8- 

8D 

81 

A9 

A0 

C4 

Cl 

A0 

CE 

0BC0- 

CI 

D3 

D4 

D2 

CF 

A0 

Cl 

A0 

0BC8- 

C4 

C9 

D3 

C3 

CF 

8D 

B2 

A9 

0BD0- 

A0 

C4 

CI 

A0 

C4 

C9 

D3 

C3 

0BD8- 

CF 

A0 

CI 

A0 

CE 

Cl 

D3 

D4 

0BE0- 

D2 

CF 

8D 

B3 

A9 

A0 

C6 

C9 

0BE8- 

CE 

C5 

8D 

00 

8D 

C4 

Cl 

A0 

0BF0- 

CE 

CI 

D3 

D4 

02 

CF 

A0 

Cl 

0BF8- 

A0 

C4 

C9 

D3 

C3 

CF 

BD 

8D 

ocoo- 

C9 

CE 

D3 

C5 

D2 

C9 

D2 

C5 

0C08- 

A0 

D5 

CE 

A0 

C4 

C9 

D3 

C3 

0C10- 

CF 

8D 

C9 

CE 

C9 

DA 

C9 

Cl 

0C18- 

CC 

C9 

DA 

DA 

Cl 

D4 

CF 

8D 

0C20- 

8D 

DO 

D2 

C5 

CD 

C5 

D2 

C5 

0C28- 

A0 

DO 

CC 

Cl 

D9 

00 

8D 

C4 

0C30- 

CI 

A0 

C4 

C9 

D3 

C3 

CF 

A0 

0C38- 

CI 

A0 

CE 

Cl 

D3 

D4 

02 

CF 

0C40- 

8D 

8D 

C9 

CE 

D3 

C5, 

.02 

C9 

0C48- 

02 

C5 

A0 

C9 

CC 

A0 

C4 

C9 

0C50- 

D3 

C3 

CF 

8D 

8D 

DO 

D2 

C5 

0C58- 

CD 

C5 

02 

C5 

A0 

D2 

C5 

C3 

0C60- 

CF 

D2 

C4 

00 

8D 

D4 

D2 

Cl 

0C68- 

D3 

C6 

C5 

D2 

C9 

CD 

C5 

CE 

0C70- 

D4 

CF 

A0 

C3 

CF 

CD 

DO 

CC 

0C78- 

C5 

D4 

CF 

A0 

8D 

00 

8D 

87 

0C80- 

C4 

C9 

D3 

CB 

A0 

C5 

D2 

D2 

0C88- 

CF 

D2 

8D 

00 

8D 

C9 

CC 

A0 

0C90- 

D4 

02 

Cl 

D3 

C6 

C5 

D2 

C9 

0C98- 

CD 

C5 

CE 

D4 

CF 

A0 

C9 

CD 

0CA0- 

DO 

C9 

C5 

C? 

C8 

C5 

D2 

Cl 

0CA8- 

A7 

A0 

A0 

A0 

AE 

A0 

A0 

8D 

0CB0- 

CD 

C9 

CE 

D5 

D4 

C9 

A0 

C3 

0CB8- 

C9 

D2 

C3 

Cl 

8D 

00 

8D 

C4 

occo- 

C9 

D3 

C3 

CF 

AO 

Cl 

A0 

81 

0CC8- 

83 

A0 

D3 

C5 

D4 

D4 

CF 

D2 

0CD0- 

C9 

8D 

00 

8D 

D3 

C3 

D2 

C9 

0CD8- 

D6 

C9 

A0 

C9 

CE 

D4 

C5 

D3 

0CE0- 

D4 

CI 

da' 

C9 

CF 

CE 

C5 

8D 

0CE8- 

AA 

B1 

B8 

A0 

A0 

C3 

Cl 

D2 

0CF0- 

CI 

D4 

D4 

C5 

D2 

C9 

A0 

CD 

0CF8- 

CI 

DB 

AA 

8D 

00 

8D 

D3 

D5 


Giunsi a concludere che la via mi¬ 
gliore e più agevole sarebbe stata quel¬ 
la di leggere e salvare soltanto quei 
settori del dischetto che avessero dati 
validi. Leggendo le directory potevo 
trovare quali settori fossero in uso per 
quello specifico file e leggerli in me¬ 
moria, ma ciò sembrava ancora un po’ 
complicato. Mentre leggevo del meto¬ 
do utilizzato per memorizzare le infor¬ 
mazioni sul dischetto, arrivai alla pagi¬ 
na 132 del manuale del DOS 3.2. Lì si 
spiega come la traccia $11, settore $0, 
contenga una mappa dei bit di tutti i 
settori del dischetto. Se il bit corri¬ 
spondente a quel settore è “1”, il setto¬ 
re è aperto, in altre parole non vi risie¬ 
de alcuna informazione valida. A quel 
punto era chiaro che tutto quel che 
avrei dovuto fare era leggere quel set¬ 
tore e trovare quali settori avessero 
corrispondenza “0”, e leggere e salva¬ 
re solo quei settori. 

Un’ovvia lacuna di questo metodo è 
che non si potrebbe tornare a caricare 
da nastro a dischetto alcun singolo 
programma; si dovrebbe riscrivere 
l’intero dischetto. Ma considerai di se¬ 
condaria importanza questo proble¬ 
ma, perché normalmente quando un 
dischetto ha un problema esso riguar¬ 
da alcuni programmi, e non uno sin¬ 
golo. 

Capacità nastro/dischetto 

Fino a questo punto ho ignorato 
l’ovvio problema di come leggere un 
dischetto e metterlo in memoria tutto 
in una volta. Ebbene, la risposta è che 
non è possibile, non lo si può fare se il 
dischetto è relativamente pieno. Si do¬ 
vrebbe leggere il dischetto in memoria 
a pezzi, e registrarlo su nastro a pezzi. 
Un po’ di calcoli mi portò alla conclu¬ 
sione che non sarebbero state necessa¬ 
rie più di quattro operazioni di carica¬ 
mento in memoria per salvare un intero 
dischetto (per un sistema da 48K). 

Un’altra considerazione da fare era 
quella della quantità di nastro occor¬ 
rente per salvare un dischetto compie- 
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In autunno 

sbarcano i mille 



Quanti programmi per il tuo 
Apple non conosci ancora? Quali 
applicazioni potrebbero farti 
risparmiar tempo e fatica? 

A settembre escono 
Le pagine del Software. 

Ma conviene ordinarle subito. 


Ritagliare, compilare e spedire a: 

Editronica Srl, (.orso Monforte 39,20122 Milano. 


- 3 <- 


Mille programmi. Duecento pagine. 
Un catalogo completo e aggiornato di 
tutto il software per Apple disponibile 
in Italia. Per ogni programma una 
scheda descrittiva: a cosa serve, a chi è 
destinato, quanto costa, chi lo vende. 

E in più, gli indici analitici: per 
programmi, per area di utenza, per 
produttore. E gli elenchi dei 
rivenditori e dei centri di assistenza. E i 
libri e le riviste utili... Per chi possiede 
un Apple Le pagine del Software sono 
uno strumento indispensabile. Per chi 
non lo possiede ancora, sono una guida 
per scegliere meglio. 

Poi c’è anche il nuovissimo Servizio 
Lettori, il metodo più comodo per chi 
desidera ulteriori informazioni su 
questo o quel programma. Una scheda 
è inserita nel nuovo volume delle 
Pagine del Software. Basta staccarla e 
spuntare i programmi sui quali si 
vorrebbe saperne di più. 


Ordinale subito. 

Sarai fra i primi a riceverle. 
E risparmi 


Desidero, senza aggravio di spese postali, Le pagine del Software. Scelgo la seguente formula: 

□ Non sono abbonato. Inviatemi l’edizione di settembre delle Pagine del Software a lire 12.000. 

□ Sono abbonato. Inviatemi l’edizione di settembre delle Pagine del Software a lire 8.000. 

□ Mi abbono ad Applicando (□ Rinnovo l’abbonamento). Inviatemi 6 numeri di Applicando il dischetto 
omaggio (□ Tre programmi. □ Indice elettronico dell e Pagine del Software.) l’edizione Autunno 
1984 e l’edizione Primavera 1985 delle Pagine del Software a lire 40.000. 

COGNOME E NOME. 

VIA.N. 

CAP.CITTÀ.PR0V... 

□ Allego assegno non trasferibile di L.intestato a Editronica Srl. 

□ Allego ricevuta di versamento di L.sul CC postale N. 19740208 intestato a Editronica Srl, 

Corso Monforte 39,20122 Milano. 

□ Pago fin d’ora con la mia carta dlcredito Bankamericard N.scadenza. 


La prossima edizione delle Pagine del Software 
sarà a casa tua nei primissimi giorni di settembre, 
fresca di stampa, se compili subito e spedisci il 
tagliando qui a fianco. Per favorire gli abbonati 
abbiamo studiato tre possibilità: 1) Non abbonati: 
12.000 lire. 2) Abbonati: 8.000lire, con un 
risparmio di 4.000 lire. 3) Abbonamento a 6 
numeri di Applicando Dischetto omaggio (Tre 
programmi, oppure l’Indice elettronico delle 
Pagine del Software ) le prossime due edizioni delle 
Pagine del Software : 40.000 lire, con un risparmio 
complessivo di 14.000 lire. 


Data.Firma. 

□ Desidero fattura. Il mio C.Fisc./P.lva è. 
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to. Se fossero occorsi più di 30 minuti, 
il tempo richiesto e la necessità di com¬ 
prare nastro più lungo avrebbero po¬ 
tuto dissuadere dall’uso di questo pro¬ 
gramma. Con il presupposto di una 
velocità di trasferimento di 1200 baud 
e di circa 110K byte di memorizzazio¬ 
ne su ciascun dischetto il tempo richie¬ 
sto per ogni dischetto completo è di 12 
minuti. Era come avevo sperato. Io 
puntavo a un dischetto completo su un 
lato di una cassetta da trenta minuti. 

Con il progetto che diventava sem¬ 
pre più realizzabile mi rivolsi allora al 
problema di fare scritture e letture 
multiple su nastro, senza poter con¬ 
trollare il nastro dal programma. Co¬ 
me ho detto prima non volevo essere 
costretto fare da baby sitter al registra¬ 
tore, premendo il tasto pausa su indi¬ 
cazione. L’ideale sarebbe stato co¬ 
struire qualche hardware che permet¬ 
tesse al programma di avviare e arre¬ 
stare il nastro a volontà, ma io non 
volevo che per utilizzare il programma 
occorresse alcun hardware speciale, in 
quanto sapevo di altre persone che 
avrebbero gradito anch’esse usare il 
sistema, ma non volevano armeggiare 
con alcun collegamento speciale. Tut¬ 
to indicava che avrei dovuto avviare il 
registratore e poi lasciarlo andare 
avanti per tutta la durata della copia¬ 
tura. 

Intervalli e tempi 

Un simile funzionamento lascereb- 
be naturalmente intervalli sul nastro a 
ogni fase di lettura del dischetto. È 
importante render sicuro che l’inter¬ 
vallo sia costante , sia che il dischetto 
stia leggendo sia che stia scrivendo. I 
tempi di lettura e di scrittura devono 
essere uguali (e in effetti lo sono) e la 
quantità di informazioni lette o scritte 
sul dischetto deve essere la stessa. 


Questo non è difficile da pianificare 
quando si programma, dato che il di¬ 
schetto viene letto fino a che la memo¬ 
ria è riempita e poi quella sezione vie¬ 
ne registrata sul nastro. Si verifica un 
problema quando la quantità di dati 
che deve essere letta sul dischetto non 
riempie la memoria. Il tempo impiega¬ 
to per la lettura di una porzione più 
piccola del dischetto sarebbe inferiore 
e causerebbe problemi in fase di lettu¬ 
ra dal nastro e registrazione sul di¬ 
schetto. 

Risolsi questo problema leggendo 
sempre una parte del dischetto suffi¬ 
ciente a riempire la memoria, anche se 
quanto veniva effettivamente registra¬ 
to sul nastro sarebbe stato minore. Un 
interessante aspetto collaterale di que¬ 
sto fatto è che mentre scrivevo il pro¬ 
gramma, inteso a leggere un settore 
conosciuto per riempire la memoria, 
scoprii che leggere continuamente lo 
stesso settore e la stessa traccia occu¬ 
pava un tempo quasi doppio della let¬ 
tura di settori consecutivi della stessa 
traccia. A quanto pare l’attesa che il 
dischetto faccia un giro completo ri¬ 
chiede una considerevole quantità di 
tempo supplementare. 

Indicatore di tempi 

Per automatizzare il più possibile il 
programma pensai che sarebbe stata 
una buona idea quella di indicare all’u¬ 
tente quanto tempo avrebbe occupato 
una particolare copia di riserva o un 
particolare ripristino, in modo che lui 
potesse fare nel frattempo altre cose, e 
sapere quando avrebbe dovuto far ri¬ 
torno al computer. Ho realizzato que¬ 
sta idea contando settori in uso e sce¬ 
gliendo un tempo su una tabella. 

Lo visualizzo sullo schermo prima di 
scrivere sul nastro, e inoltre memoriz¬ 
zo questo indice in un’intestazione sul 
nastro, in modo che sia la prima cosa a 
essere riletta quando si fa un ripri¬ 
stino. 

Inoltre memorizzo nella intestazio¬ 
ne un messaggio di 18 caratteri defini¬ 
to dall’utente, al fine di permettere 
l’immediato riconoscimento di quel 
che c’è sul nastro, nell’eventualità che 
la documentazione vada smarrita. 

Come si esegue 
Archivio per Apple 

Portati a compimento propositi e 
progetto ho scritto il mio programma 
ARCHIVIO. È per intero in linguag¬ 
gio assemblatore e lo si può eseguire 
dal dischetto con “BRUN”, oppure ri¬ 
chiamare con “CALL” dallTnteger o 



dall’Applesoft BASIC. Quando il pro¬ 
gramma viene avviato compare un 
menù. La semplice pressione del nu¬ 
mero dell’ppzione scelta svolge il com¬ 
pito. Prima che venga interessato 
qualsiasi nastro o dischetto il program¬ 
ma spiega che cosa si deve fare e chie¬ 
de all’utente di premere la barra spazi 
quando è pronto. Quando si salva un 
dischetto su nastro il programma chie¬ 
de che si digiti un'intestazione di 18 
caratteri al massimo. 

Questa intestazione può essere 
qualsiasi descrizione voluta. È usata 
solo ai fini della documentazione. 
L’intestazione viene terminata da un 
ritorno carrello. L'utente può termina¬ 
re il programma in qualsiasi punto bat¬ 
tendo U ESC". Naturalmente il pro¬ 
gramma non si arresterà immediata¬ 
mente se sta leggendo o scrivendo su 
nastro, o attendendo che venga intro¬ 
dotta un’intestazione. Il programma 
informa l’utente quando è finito e vi¬ 
sualizza il menù. 

Occorre stare attenti a una cosa: se 
il dischetto ha un settore imperfetto, 
sul quale non si può leggere o scrivere, 
il nastro potrebbe essere fuori tempo. 
In altre parole l’intervallo fra le por¬ 
zioni registrate potrebbe essere trop¬ 
po corto o troppo lungo. Se questo 
accadesse l’utente potrebbe, quando 
giunge il momento, fermare il nastro o 
fare l’avanzamento veloce, per porta¬ 
re il nastro alla porzione giusta al mo¬ 
mento giusto. A me finora questo non 
è accaduto, ma è possibile. 

Il programma è stato scritto in modo 
che controlli automaticamente se si 
tratta di un Apple 32K o 48K. Le cas¬ 
sette archiviate in precedenza con un 
sistema da 32K funzioneranno con un 
sistema da 32K, ma quelle archiviate 
con un sistema da 48K non funzione¬ 
ranno con un Apple 32K. ARCHI¬ 
VIO funziona senza modifiche sia con 
il DOS 3.2 sia con il 3.3. 

Adesso con la routine ARCHIVIO 
ho la mente tranquilla, e ho ancora un 
po’ di soldi in tasca. ■ 

Alan D. Floeter 

(traduzione a cura di Pippo Laura) 
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si trova 
anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


Almé 

Elcod Viale Italia 45/A 
Aosta 

Informatique sas di Eddy Ottoz 
Av. Conseil des Commis 14 

Avezzano 

Aspron Via America 10/12 
Barano d’Ischia 
Matterà Antonio Via Roma 61 

Bari 

L. e L. Computers srl 
Largo 2 Giugno 4 

Bassano del Grappa 

A Tre snc di Arcangeli e C. 

Via Buonarroti 23 

Benevento 
Masone Informatica 
Viale dei Rettori 57 

Bergamo 

Studio 15 srl Via Quarenghi 60 

Biella 

Consul Computer srl 
Via delle Rose 2 

Bologna 

CEDA Minicomp srl 
Piazza Aldrovandi 2/2 
Computer Systems 
Via Ercolani 10/D 
EDP Sistemi BO srl 
Viale Pietramelara61/F 
SERCOM Via B. da Carpi 9/B 

Borgo a Buggiano 

CO-DI snc di G. Gatti-Chiti 
Via 24 Maggio 117/119 

Brescia 

Brescia Computers srl 


Via Malta 12 

Il Computer srl Via B. Croce 23 
Personal Data di Tamiozzo D. 
Via Brozzoni 4 

Catania 

Centro Informatica sdf 
Via Torino 55 
Computer Shop 
Via E. Orlando 164 
SI.EL Informatica snc Via 
Etnea 289 

Catanzaro 

Visicom srl 

Via Minniti Ippolito 10 
Chieti 

Computer Point sas 
Viale Unità d'Italia 5 

Como-Albate 

Accaesse Informatica srl 
Via Acquanera 46 

Conegliano 

Computing Program di Branca 
ViaG. Piovesana 32 

Cosenzja 
Micro Systems sdf 
Via Pane Bianco 26 

Ferrara 

Crepaldi Giuseppe 
Via T. Speri 5 
Mazzacurati Claudio 
Viale Cavour 186/188 

Firenze 

Anfrel Informatica sas di F. 
Giagnoni e C. Via Masaccio 50 
Elettronica Cento Stelle srl 
Via Cento Stelle 5/B 
Paoletti Ferrerò Via il Prato 
40/42 R 

Pascal Tripodo Elettronica 


Via B. della Gatta 26/28 
Soluzioni EDP srl 
Corso dei Tintori 39R 

Foggia 
GECO, srl 

Via Valentini V. Franco 1 
Forti 

A-Z Computer srl 
Via Cignani 7 

Kronos Via Oreste Regnoli 30 

Genova 

Computer Center 
Via San Vincenzo 129 r 
SALS Informatica srl 
Via D’Annunzio 2/35 

Gioia Tauro 

Tecnocomp snc di Cutellé F.e 

R. Via Nazionale SS 111/117 

Jesi 

E.M.J. sas ViaF. Conti 4 
New Computer srl 
Via N.Sauro 17/A 

L'Aquila 

S. E. A.D. srl via G. di Vincenzo 

Lanciano 

Electronic Microsystems 
Via della Pace 3 

Lavagna 

CR2 Informatica snc 
Corso Genova 100 

Lecco 

Computers Lecco snc 
Via Nino Bixio 18/B 

Manduria 

De Pasquale Ottavio 
Via per Oria 80 


Massa 

Euro Computer sas 
Piazza C. Bertagnini 4 

Matera . 

Lucana Sistemi srl 
Via Don Minzoni 4 

Messina 

Cubeta srl Via Cardines 12/14 
Milano 

A. G. Informatica srl 
ViaG. Silva 49 
Basic Computers 
Via Friuli 26/A 

Deltron srl Viale Gran Sasso 50 

Edelektron srl 

Corso Sempione 39 

Happy System Piazza Diaz 6 

AllTnformatica Shop 

Via Lazzaretto 2 

Microtech Sistemi 

Via Bronzetti 20 

SH Computers srl 

Viale Montenero 33 

Softec Computer 

Viale E. Jenner23 

Milazzo 

Tectron Tecnologie Elet. srl 
Via dei Mille 

Mirano 

Saving Elettronica di Miatto 
Via Gramsci 40 

Modena 

Masetti Elettronica srl 
Via Emilia Centro 211 

Monza 

ESI srl Via Cavallotti 11 
Nikom Electronics 
Via Asiago 7 
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Napoli 

Computer Systems srl 
Via G. Santacroce 40 
Golden Computer srl 
Via Michelangelo 7 
I.C. International Computer 
Viale A. Gramsci, 176 
La Barbera Carlo sas 
Via Toledo 320 

Nardo 

Salco srl Via XX Settembre 122 

Padova 

Capo villa e C. sas 
Galleria Scrovegni 5 
Computer Service srl 
Via Beethoven 3 
E.D.P. Sistemi srl 
Via Borromeo 16 

Palermo 

Informatica Commerciale spa 
Via Notarbartolo 26 

Pavia 

M.A.S.H. Computer Systems 
Strada Nuova 86 
Senna Gianfranco snc 
Via Calchi 5 

Pinerolo 

Elaborazione Dati Pinerolo 
Corso Piave 42 

Pisa 

Società Elettronica Tirrena 
Via Fucini 20 

Pistoia 

Inter Systems 

Via Pietro Mascagni 14 

Pontedera 

Data Port srl 

Via Brigate Partigiane 27 

Reggio Emilia 
Computer Center srl 
Via D. Alighieri 4 

Roma 

Computer Center srl 
Via Nizza 48/52 
Computerart srl 
Via Michele di Landò 41 
Easy Byte 

Via Giovanni Villani 24 
E.D.P. Market 
Via E. Fermi 116/118 
E.M. EUR Micro Computer srl 
Viale C. Pavese 267 

5.1. G.E.E.I. srl 

Via Nomentana 265-273 

5.1. PR.EL. srl 

Via Pompeo Magno 94 

Roma EUR 

Bit Computers 
Via F. Domiziano 10 

Salerno 
SEDA srl 

Via Parmenide c/o Iannone 

Sanremo 

A.E.S. Assemb. Elettr. 
S.Remo Via Volta 24 


Savona 

Briano snc Corso Tardy e 
Benech 20 r 

Scandiano 

Informatica System di Cheli 
Via Diaz 11/D 

Segrate 

Compusoft di R. Massaro li 
Via Milano 2 - Resid. Lago 

Sestri Ponente - Genova 
All Computer sas 
ViaC. Menotti 136 r 
Spezzano Albanese 
Via Stragoda 48 

Torino 

A.B.Computer sas 
Corso Grosseto 209 
Digitalsync snc 
Corso Moncalieri 303 
GE.NE.CA. srl Via Bertola 5 
Hobby Elettronica 
Via Saluzzo 11/F-G-H 
Omicron Computers snc 
C.so Duca degli Abruzzi 14 
Pinto G.-Componenti elettr. 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop 
ViaBeaumont 10 
Tekno Computers srl 
Via Madama Cristina 31/c 

Torrette di A ncona 
Sisteda srl via Velino 5 

Trapani 

Guatano Eugenio 
Via Virgilio 11 

Trento 

SI.GE. snc di Casagrande 
Via Cesare Abba 2 

Treviso 

A5 Computers srl 
Borgo Cavour 37/A 

Udine 

BIT Computers 
Via Pozzuolo 107 

Varese 

IRPE srl Via Morazzone 8 
Venezia 
AZ Telemarket 
Cannaregio 5898 

Verona 

ARMUsrl 

Via Teatro Filarmonico 3 
Esacomp srl Via Roveggia 43 
MOS 80 sas Via Germania 21 

Vicenza 

Sevi sas Via S. Agostino 87 

Villafranca 
Studio 4 

Corso Vitt. Emanuele 70 
Viserba di Rimini 
Computer Center 
Via Pallotta 25/A 


flÉcipplc computer 


computer shop 
centro dimostrativo 
Apple //c, //e, Macintosh e Lisa 
accessori e periferiche 
materiali di consumo 
software per tutte le esigenze 
assistenza tecnica 
corsi regolari a tutti i livelli 
consulenza 

vendita, affitto, leasing 


Sab 

Informatica 


Computer Shop 

viale Brigate Partigiane 132 r. 
Genova 


Programmazione, 
Assistenza e Corsi 

Via a D’Annunzio 2/46 
Genova 

TeL (010) 589327-592627 


ffcipplo computer 













Lo-res, Hi-res: ovvero bassa e alta risoluzione 
grafica. Nella sesta puntata del tutorial Applesoft 
vengono spiegati tutti i segreti della grafica. Saprete così come 
<0^ colorare un quadrato inserito in un riquadro 

di colore diverso, come si muove una figura e... 

Qui la grafica 
è animata 
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n’immagine vale mille paro¬ 
le», si dice. Perché allora non 
applicare questo principio a program¬ 
mi gestionali ed educativi per renderli 
più efficaci nella trasmissione delle in¬ 
formazioni? Le schermate grafiche di 
istogrammi o di grafici a torta che illu¬ 
strano il progresso dei profitti o la di¬ 
stribuzione delle spese di una società 
danno un’impressione più immediata 
e chiara delle semplici tabelle numeri¬ 
che; i programmi educativi, con rag¬ 
giunta di animazione grafica, tratten¬ 
gono l’attenzione dello studente più a 
lungo dei display che contengono solo 
un testo scritto, e danno ai concetti 
una maggiore opportunità di essere as¬ 
sorbiti e ricordati. 

La grafica, però, come può accre¬ 
scere l’utilità di un programma, può 


lederla, non va quindi utilizzata tout 
court solo perché è disponibile. Gli 
obiettivi fondamentali di un dato pro¬ 
gramma devono restare costantemen¬ 
te in primo piano nella mente del pro¬ 
grammatore, e solo se la grafica può 
agevolare il raggiungimento di quegli 
obiettivi vale la pena di investire il 
tempo e lo sforzo supplementari ne¬ 
cessari per incorporare nel program¬ 
ma la visualizzazione grafica. 

La grafica dell’Apple 
e la memoria 

L’Apple dispone di due diversi tipi 
di visualizzazione grafica, lo-res (a 
bassa risoluzione) e hi-res (ad alta ri¬ 
soluzione). Per poter utilizzare la ca¬ 
pacità di hi-res il computer deve avere 


almeno 16K di memoria RAM. Que¬ 
sto perché la RAM riservata nell’Ap¬ 
ple ai display ad alta risoluzione co¬ 
mincia all’indirizzo 8192 e si estende 
fino a 16383. 

Per capire come la memoria RAM 
sia in relazione con la visualizzazione 
sul video nel computer, essa va consi¬ 
derata come una mappa nella quale 
ciascun byte di memoria ha una loca¬ 
zione esclusiva, specificata da un indi¬ 
rizzo. Il primo byte di RAM ha indiriz¬ 
zo 0, il secondo byte è indirizzato ale 
così via. 

Si potrebbe immaginare una via con 
le case costruite solo lungo un lato 
(dall’altra parte della via c’è un parco) 
e con le case numerate in sequenza 
partendo da zero; le vie trasversali in¬ 
dividuano vari isolati, composti ognu- 
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no di 265 case: poiché la prima casa 
della via ha il numero 9, la prima casa 
del secondo isolato ha il numero 256. 
A ogni indirizzo ha il permesso di risie¬ 
dere un byte di informazioni. La me¬ 
moria RAM è organizzata in modo 
molto simile; ogni blocco isolato è de¬ 
finito pagina di memoria, con l’inizio a 
pagina 0. 

Lo schermo video di visualizzazione 
non fa parte della memoria RAM del¬ 
l’Apple, tuttavia ogni posizione di di¬ 
splay sullo schermo visualizza, quasi 
come uno specchio, un byte di infor¬ 
mazioni che corrisponde a un byte di 
informazioni immagazzinato nella 
RAM. Quando il computer sta visua¬ 
lizzando uno schermo pieno di testo, il 
monitor sta riflettendo in realtà le pa¬ 
gine 4, 5, 6 e 7 della memoria RAM. 
(Ciò corrisponde in pratica agli indi¬ 
rizzi RAM da 1024 a 2047). La memo¬ 
ria RAM riservata all’immagazzina- 
mento del display è per definizione un 
“buffer”: per esempio, le pagine 4-7 
sono il buffer di memoria per la visua¬ 
lizzazione del testo. 

Le istruzioni del nostro programma 
in Basic sono immagazzinate in me¬ 
moria, partendo dalla locazione 2048 
(pagina 8) subito dopo questo buffer 
di memoria. Così quando il program¬ 
ma usa un’istruzione come 

10 HOME: PRINT“HELLO” 

questa istruzione viene immagazzina¬ 
ta nella RAM sopra la locazione 2048 
a pagina 8. Quando il programma vie¬ 
ne eseguito, le pagine 4-7 vengono pu¬ 
lite e i codici ASCII per la parola 
HELLO vengono posti nelle locazioni 
di memoria 1024-1028. Inoltre questi 
stessi codici sono inviati al circuito pi¬ 
lota del video, che dà ordine di ripro¬ 
durre sullo schermo i cinque caratteri. 

La grafica lo-res impiega la stessa 


area di buffer della RAM che l’Apple 
utilizza per le schermate di testo. Per 
l’utente Basic sono necessarie soltanto 
due istruzioni di un’unica parola, GR 
e TEXT, per commutare l’interpreta¬ 
zione data dal computer al modo d’in¬ 
vio allo schermo delle informazioni 
memorizzate nel buffer. L’istruzione 
GR dice al computer di mandare i dati 
allo schermo come caratteri grafici, 
mentre TEXT dice al computer di in¬ 
viare i dati come caratteri di testo. Na¬ 
turalmente se la RAM è piena di codi¬ 
ci grafici e viene ricevuta la parola 
TEXT il display si riempirà di caratteri 
privi di senso, dato che il generatore di 
caratteri di testo produce caratteri cor¬ 
rispondenti ai codici grafici. Si deve in 
tal caso usare il comando HOME per 
pulire lo schermo dei caratteri indesi¬ 
derati. 

In pratica ci sono due buffer di 
schermo per visualizzare la grafica lo- 
res. Il manuale li definisce «pagine», 
ma per non confondere l’uso di questa 
parola con una “pagina” di RAM (che 
contiene 256 byte) converrà indicarli 
come buffer di schermo. Il buffer di 
schermo lo-res secondario coincide 
con le stesse quattro pagine di RAM 
che vengono usate per la memorizza¬ 
zione del programma, le pagine 8-11. 
Sono perciò necessarie, per usare que¬ 
sto buffer di schermo secondario, tec¬ 
niche di programmazione piuttosto in¬ 
consuete se non si vuole “stangare” il 
programma. Ne consegue che, in real¬ 
tà, il buffer di schermo secondario per 
la grafica a bassa risoluzione non viene 
usato spesso. 

Analogamente ci sono due buffer di 
schermo per la grafica hi-res. Il primo 
di essi occupa le pagine 32-63 della 
memoria RAM (indirizzi 8192-16383) 
e il secondo impiega le pagine 64-95 
della RAM (indirizzi 16384-24575). 
Naturalmente per usare il buffer di 
schermo hi-res secondario sono neces¬ 


sari più di 24K di RAM. Le istruzioni 
di commutazione dal modo testo o dal 
modo lo-res al modo hi-res sono sem¬ 
plicemente HGR (per accedere al buf¬ 
fer di schermo hi-res primario) e 
HGR2 (per accedere al buffer di 
schermo hi-res secondario). 

Dato che la RAM usata per questi 
due buffer è semplicemente un’esten¬ 
sione della RAM usata per memoriz¬ 
zare il nqstro programma in Basic, un 
programma tanto lungo sa estendersi 
sopra la pagina 32 limiterà l’utilizza¬ 
zione al buffer di schermo secondario. 
Si potrebbe usare, in questo caso, en¬ 
trambi i buffer, ma allora, come già 
per il buffer di schermo secondario a 
bassa risoluzione, sarebbero necessa¬ 
rie misure straordinarie per pulire le 
aree di buffer, mantenendo al tempo 
stesso l’integrità del nostro program¬ 
ma. La Figura 1 mostra come queste 
aree di RAM siano in relazione. 

Visualizzazioni 
grafiche Apple 

La differenza principale tra grafica a 
bassa e ad alta risoluzione sta nel nu¬ 
mero delle posizioni di display dispo¬ 
nibili sullo schermo e, di conseguenza, 
nelle dimensioni di ciascun punto trac- 
ciabile e nell’aspetto generale del di¬ 
splay. 

La grafica a bassa risoluzione prov¬ 
vede un display a tutto schermo di 40 
colonne per 48 righe. Quindi ciascun 
punto tracciato a bassa risoluzione 
avrà la stessa larghezza di un carattere 
di testo e metà della sua altezza; si 
presenterà perciò come un quadratino 
(metà altezza del blocco del cursore). 
Nella RAM ogni byte contiene il codi- 

Ecco una serie di videate con i 
risultati grafici che si possono 
ottenere coni listati 
pubblicati in queste pagine. 
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ce colore per due di questi blocchi, 
posti l’uno sull’altro verticalmente; 
per esempio l’indirizzo di memoria 
1024 contiene i codici per i blocchi si¬ 
tuati nella colonna 0, righe 0 e 1. 

La grafica ad alta risoluzione prov¬ 
vede display di 280 colonne e 192 ri¬ 
ghe. I punti saranno quindi molto pic¬ 
coli e lo schermo potrà ospitarne 
53.760. Il vantaggio grafico è conside¬ 
revole: le linee diagonali non avranno 
un andamento a scalini e le curve 
avranno realmente l’aspetto di curve. 
Naturalmente occorre molta più 
RAM per fare il buffer di un display ad 
alta risoluzione (32 pagine contro 4 
per la bassa risoluzione). 

La grafica lo-res permette di sceglie¬ 
re fino a 16 differenti colori (0-15), 
usando il comando COLOR=##, 
ma, per gestire tanti colori nella grafi¬ 
ca hi-res, occorrerebbe una quantità 
considerevolmente maggiore di me¬ 
moria. Si giunge perciò a una sorta di 
compromesso, e il numero di colori 
hi-res viene limitato a 8 (0-7), usando 
il comando HCOLOR=##. La figura 
2 elenca i colori disponibili, sia per la 
grafica lo-res sia per quella hi-res, as¬ 
sieme al corrispondente numero adat¬ 
to per quel colore. Il codice numerico 
per i colori hi-res è tuttavia ingannevo¬ 
le, poiché la posizione del punto sullo 


schermo ha parte nella determinazio¬ 
ne del colore di quel punto quanto il 
numero scelto per HCOLOR. 

Con l’Apple non è cosa semplice 
miscelare il testo alla grafica nella stes¬ 
sa area di schermo; in alta risoluzione 
lo si può fare tracciando le lettere o 
definendo le singole lettere come figu¬ 
re e disegnando le figure sullo schermo 
nella posizione voluta; in bassa risolu¬ 
zione si possono disegnare sullo scher¬ 
mo solo grandi lettere a stampatello. È 
però possibile, usando i comandi GR o 
HGR, ridurre le dimensioni dello 
schermo sia nel modo hi-res sia in 
quello lo-res in maniera che le quattro 
righe di testo in basso (corrispondenti 
a 8 righe di grafica lo-res o 32 righe di 
grafica hi-res) siano lasciate aperte co¬ 
me «finestra di testo». Con il comando 
HGR2, invece, si renderà disponibile 
per la grafica l’intero schermo. Per 
commutare tra queste due soluzioni si 
usano: POKE -16301,0 (cambia il di¬ 
splay grafico da tutto schermo a misto 
di testo più grafica); POKE -13302,0 
(cambia il display grafico da misto di 
testo più grafica a grafica a tutto scher¬ 
mo). In entrambi i casi, per poter uti¬ 
lizzare facilmente le quattro righe di 
testo (usando istruzioni come PRINT) 
occorre che si stia usando l’area di buf¬ 
fer primaria dello schermo, si tratti di 


NUMERI DI PAGINA 
0-3 
4-7 
&-11 
12-31 


32-63 


64-95 


96- 



0UFFER PRIMARIO TESTO & LO-RES 


BUFFER SECOhOARIO TESTO & LO-RES 


Figura 1. Mappa di memoria 
della RAM dell’Apple//, che 
mostra le locazioni delle 
quattro aree di buffer schermo 
usate dall’Apple per i display di 
testo, bassa risoluzione e alta 
risoluzione. 
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Lo-Res 


Hi-Res 


0 - nero 

1 - magenta 

2 - blu scuro 

3 - viola 

4 - verde scuro 

5 - grigio 

6 - blu medio 

7 - celeste 


Lo-Res 

8 - marrone 

9 - arancione 

10 - grigio 

11 - rosa 

12 ■ verde 

13 - giallo 

14 - acquamarina 

15 - bianco 


0 - nero 

1 - nero o verde 

2 - viola o nero 

3 - viola, verde o bianco 

4 - nero 

5 - nero o rosso 

6 - blu o nero 

7 - blu, rosso o nero 


Nota. Nel nodo Hi-Res il primo colore elencato riguarda i punti tracciati 
nelle colonne pari, il secondo i punti tracciati nelle colonne dispari. 

Due punti affiancati orizzontalmente appariranno bianchi se il colore è 3 o 7. 

Figura 2. Codice dei colori che sono usati nei modi grafici lo-res e hi-res 
per specificare il colore del successivo pixel o blocchetto da tracciare. 


Tabella 1. Scorciatoie grafiche 

HLIN aa,bb AT cc aa = colonna iniziale per linea orizzontale 
bb = colonna finale per linea orizzontale 
cc = riga (0-47) su cui sarà disegnata la linea orizzontale 

VLIN aa,bb AT cc aa = riga iniziale per linea verticale 
bb = riga finale per linea verticale 
cc = colonna (0-39) in cui sarà disegnata la linea verticale 


Tabella 2. Controlli di commutazione che possono essere usati per 
specificare gli attributi di visualizzazione in qualsiasi momento dato, 
e qualche utile istruzione CALL. 


POKE 

- 16297,0 

SCEGLIE 

POKE 

- 16298,0 

SCEGLIE 

POKE 

- 16299,0 

SCEGLIE 

POKE 

- 16300,0 

SCEGLIE 

POKE 

- 16301,0 

SCEGLIE 

POKE 

- 16302,0 

SCEGLIE 


IL MODO GRAFICO HI-RES 
IL MODO GRAFICO LO-RES 

IL BUFFER DI DISPLAY SECONDARIO 
IL BUFFER DI DISPLAY PRIMARIO 

IL MODO GRAFICA ♦ TESTO MISTI 
LA GRAFICA A TUTTO SCHERNO 


POKE - 16303,0 SCEGLIE IL MODO TESTO 

POKE - 16304,0 SCEGLIE IL MODO GRAFICO 


CALL - 1994 PULISCE LE 40 RIGHE SUPERIORI DELL'AREA DI BUFFER 

PRIMARIA LO-RES 

CALL - 1998 PULISCE L'INTERO SCHERMO (48 RIGHE) DELL'AREA DI BUFFER 

PRIMARIA LO-RES 


CALL 62450 PULISCE L'AREA DI BUFFER Hl-RES (QUALUNQUE SIA IN USO 

AL MONENTO) IN NERO 


CALL 62454 PULISCE L'AREA DI BUFFER HI-RES (QUALUNQUE SIA IN USO 

AL MOMENTO) NELL'ULTIMO COLORE SPECIFICATO DA UN 
COMANDO HC0L0R E USATO DA UN C0WND0 PLOT 



fi 4 

w vv. 

•* -••• 


grafica lo-res o hi-res. Infatti l’area di 
buffer testo visualizzata nelle quattro 
righe in basso corrisponde all’area di 
buffer grafica che si sta utilizzando, 
primaria o secondaria. L’area di buf¬ 
fer secondaria per la bassa risoluzione 
(e quindi anche per il testo), inoltre, 
coincide con l’area di RAM utilizzata 
per memorizzare il programma. 

Ciò significa, dunque, che se si sta 
usando la grafica a tutto schermo nel 
modo hi-res, nell’area di buffer secon¬ 
daria, e si dà il comando POKE 
-16301,0 per passare dalla grafica a 
tutto schermo a testo e grafica misti, le 
quattro righe in basso del display rive¬ 
leranno parte del codice di pro¬ 
gramma! 

Per inserire un testo nella finestra di 
quattro righe va utilizzata l’istruzione 
VTAB per stampare il testo sulla riga 
voluta (21-24). Per tornare al modo 
testo, quando lo schermo sta visualiz¬ 
zando grafica, va impiegato il coman¬ 
do TEXT:HOME oppure il tasto di 
reset. 

La Figura 3 elenca vari comandi 
che, usati come gruppo, definiscono lo 
specifico modo dello schermo in qual¬ 
siasi momento. Quattro «commutato¬ 
ri», controllati dai comandi POKE, 
determinano i quattro seguenti attri¬ 
buti del display: 

1. Visualizzazione di testo o visua¬ 
lizzazione di grafica. 

2. Buffer primario o buffer secon¬ 
dario. 

3. Alta risoluzione o bassa risoluzio¬ 
ne (se nel modo grafico). 

4. Tutto schermo o misto testo e 
grafica (se nel modo grafico). 

Oltre a questi comandi, si possono 
richiamare dal Basic (con i comandi 
CALL elencati in Figura 3, altre quat¬ 
tro utili subroutine in linguaggio as¬ 
semblatore, che provvedono a funzio¬ 
ni simili all’istruzione HOME per il 
modo testo. 


Grafica 

a bassa risoluzione 

Lavorando con la grafica lo-res o 
hi-res, su qualunque sistema, si scopri¬ 
rà che l’utensile più prezioso è un fo¬ 
glio di carta millimetrata, sul quale va 
tracciato il profilo dello schermo, ab¬ 
bracciando lo stesso numero di qua¬ 
dratini che lo specifico modo grafico a 
disposizione racchiude sul video (per 
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qualimetric 


Ogni calcolatore ha una sua fisionomia particolare. Lo si utilizza al meglio 
conoscendone tutte le peculiarità. La BASF grazie al Know-how derivante dalle 
ricerche intensive, da particolari elaborazioni di ossidi e da una propria produzione 
e controllo ha sviluppato supporti magnetici che funzionano in armonia con il 
calcolatore. Questi prodotti su misura costituiscono l'argomento vincente e 
sono contrassegnati dal marchio BASF. 
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Il supporto magnetico BASF è il 
risultato di ricerche approfondite 
ed accurati controlli. Know-how 
nella chimica e nella fisica, 
autonomia nell’elaborazione delle 
materie prime e nella miscelazione 
di ossidi, esperienza nella 
cooperazione media-sistema, 
stanno alla base della ineccepibile 
finalità RASF 
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esempio 40 per 48 nel caso del modo 
lo-res a tutto schermo). La figura (o le 
figure) che deve apparire sul display 
va poi disegnata riempiendo comple¬ 
tamente i quadratini, eventualmente 
colorati con matite corrispondenti ai 
colori che si useranno nel display. Si 
devono poi numerare le colonne (0- 
39) e le righe (0-47). 

A questo punto il programma potrà 
dare inizio alla visualizzazione grafica 
con questo procedimento: bisogna pri¬ 
ma scegliere il modo grafico a bassa 
risoluzione e, eventualmente, com¬ 
mutare il display in grafica a tutto 
schermo. Si può anche annerire Finte¬ 
rò schermo (GR ha appena pulito le 40 
righe in alto) con un CALL -1998. Va 
poi specificato il colore desiderato per 
il primo blocchetto da disegnare. 


10 GR:POKE -16302:CALL -1998 


Per colorare, per esempio in aran¬ 
cione, un blocchetto nella colonna 18, 
riga 15, si usa l’istruzione 


29 COLOR=9:PLOT 18,15 


Un altro comando COLOR=## ri¬ 
definisce il colore. In tal modo si può 
riempire l’intero schermo, un bloc¬ 
chetto alla volta. Si può agevolare il 
procedimento con diverse «scorcia¬ 
toie». Se per esempio si vuole disegna¬ 
re una linea orizzontale di blocchetti 
dello stesso colore, si può utilizzare 
l’istruzione HLIN....... AT ... Analo¬ 
gamente c’è il comando VLIN....... 

AT ... per le linee verticali. Entrambi 
questi comandi vanno completati con 
tre numeri, come specifica la tabella 1. 
Così, per disegnare una linea verticale 
in blu attraverso il centro dello scher¬ 
mo (colonna 19), si aggiunge 


30 COLOR=2:VLIN 0,47 AT 19 


e per tracciare una linea orizzontale 
verde sulla sinistra della linea verticale 
e gialla sulla sua destra va utilizzato: 


10 REM PROGRtfttt DIMOSTRATIVO CHE INCORNICIA UN RIQUADRO IN UN COLORE 

11 REM E LO RIEMPIE COMN UN ALTRO COLORE. PER CAMBIARE 

12 REM POSIZIONE E DIMENSIONI DEL RIQUADRO CMB1A I 

13 REM VALORI A LINEA 30 

20 HOME 

30 CI = 15:C2 = 10:R1 = 8:R2 = 20 
40 6R 

50 C0LQR= 2: G0SUB 100 
60 CQL0R= 1 : G0SUB 200 
70 END 

100 REM SUBR0UTINE PER DISEGNARE RIQUADRI; CI & RI SONO COLONNA E RIGA 

101 REM DELL'ANGOLO IN ALTO A SINISTRA; C2 & R2 SONO LARGHEZZA 

E ALTEZZA 

110 IF CI ♦ C2 > 40 THEN C2 = 40 - CI 

120 IF RI ♦ R2 > 40 THEN R2 = 40 - RI 

130 HLIN C1,C1 4 C2 - 1 AT RI 

140 HLIN CI,C1 4 C2 - 1 AT RI 4 R2 - 1 

150 VLIN RI,RI 4 R2 - 1 AT CI 

160 VLIN RI,RI 4 R2 - 1 AT CI 4 C2 - 1 

170 RETURN 

200 REM SUBR0UTINE PER COLORARE L'INTERNO DI RIQUADRI; CI & RI SONO L'MGO 
LO 

201 REM IN ALTO A SINISTRA DELLA CORNICE DEL RIQUADRO. C2 & R2 

SONO 

202 REM LARGHEZZA E ALTEZZA. 

210 F0R I = RI 4 1 T0 RI 4 R2 - 2 

220 HLIN CI 4 1,C1 4 C2 - 2 AT I 
230 NEXT I 
240 RETURN 

Listato 1. Due subroutine che possono essere usate per incorniciare un 
riquadro in qualunque colore specificato e per riempire il riquadro con 
un secondo colore specificato. 
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40 COLOR=12:HLIN 0,18 AT 23 
50 COLOR=13:HLIN 20,39 AT 23 


Diverso il procedimento per traccia¬ 
re linee diagonali; se, per esempio, si 
vuole disegnare una X rossa attraverso 
lo schermo, si comincia a riga 4 per la 
sommità della lettera e si finisce a riga 
44 per il fondo. In tal modo si attraver¬ 
seranno 40 righe attraversando le 40 
colonne dello schermo, e la X risulterà 
simmetrica. 

Per le linee diagonali si può utilizza¬ 
re proficuamente il loop FOR/NEXT. 
In questo caso occorre disegnare la 
diagonale incrementando di 1 i valori 
sia di colonna sia di riga dopo aver 
disegnato ogni blocchetto; occorre 
cioè tracciare prima il punto 0,4, poi il 
punto 1,5, poi il punto 2,6 e così via. 
Per ottenere questo con un semplice 
loop si devono aggiungere al program¬ 
ma le seguenti linee: 


60 COLOR=1 
70 FOR 1=0 T039 
80 PLOT 1,4+1 
90 NEXT I 


Come si può vedere, il contatore di 
loop I viene usato per determinare sia 
la posizione di colonna sia la posizione 
di riga. Si noti anche che l’istruzione 
PLOT (al pari delle istruzioni HLIN e 
VLIN) può usare variabili o espressio¬ 
ni matematiche per specificare le posi¬ 
zione di colonna e di riga. 

Le linee da 60 a 90 tracciano metà 
della X. Il contatore di loop fa avanza¬ 
re un passo alla volta il programma 
attraverso 40 istruzioni PLOT. Per di¬ 
segnare l’altra metà della X sarà ne¬ 
cessario avanzare passo passo per altre 
40 istruzioni PLOT ; per questo compi¬ 
to si potrebbe scrivere un analogo 
loop. Il programma però può essere 
reso più efficiente tracciando la secon¬ 
da diagonale internamente al loop già 
predisposto, aggiungendo al pro¬ 
gramma 


85 PLOT 1,44-1 
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Così si provvede alla seconda linea 
diagonale. Si osservi la differenza fra i 
due comandi PLOT di linea 80 e di 
linea 85 per quanto riguarda la specifi¬ 
cazione della riga. A linea 80 ogni vol¬ 
ta che si percorre il loop la posizione di 
riga è incrementata di 1 (proprio come 
viene incrementato di 1 il contatore di 
loop). A linea 85 ogni volta che si per¬ 
corre il loop la posizione di riga è dimi¬ 
nuita di 1. 

Dipingere 

Non tutti i Basic hanno un comando 
di PAINT che permette al program¬ 
matore di riempire le figure geometri¬ 
che sullo schermo, ma un opportuno 
uso delle istruzioni di loop FOR/ 
NEXT, che impieghi il contatore di 
loop come parte dell’istruzione 
PLOT, ossia all’eventuale carenza. Di 
norma il riempimento di una figura 
sullo schermo richiede due loop nidifi¬ 
cati; ma nell’Applesoft Basic le istru¬ 
zioni di HLIN e VLIN agiscono come 
loop incorporati e il loro impiego ren¬ 
de possibile «colorare» una figura con 
un solo loop FOR/NEXT. 

Il listato 1 contiene un breve pro¬ 
gramma che utilizza due subroutine. 
La prima disegnerà sullo schermo il 
profilo di un riquadro rettangolare di 
un dato colore, mentre la seconda 
riempirà il riquadro con un secondo 
colore. Prima di richiamare le subrou¬ 
tine si deve definire la posizione di 
colonna e di riga (CI e RI) dell’angolo 
in alto a sinistra del riquadro. Analo¬ 
gamente occorre dare la larghezza del 
riquadro (C2) e la sua altezza (R2). 
Cambiando i valori a linea 30 si posso¬ 
no costruire riquadri di qualsiasi di¬ 
mensione in qualsiasi punto dello 
schermo. Si può persino fare dell’inte¬ 
ro schermo un riquadro, con una gran 
quantità di riquadri più piccoli al suo 
interno. 

Animazione a bassa 
risoluzione 

Adesso comincia il divertimento. 
Non c’è che un piccolo passo dalla 
creazione di visualizzazioni statiche al 
disegno di oggetti che sembrano spo¬ 
starsi attraverso lo schermo. Il segreto 
del movimento è che, se un oggetto è 
disegnato nello stesso colore dello 
sfondo, l’effetto è uguale a quello che 
si avrebbe se l’oggetto fosse cancella¬ 


to. Un oggetto disegnato sullo scher¬ 
mo in un certo colore (con lo sfondo 
nero), e poi ridisegnato usando esatta¬ 
mente le stesse coordinate, ma impie¬ 
gando COLOR=0 (nero), e ridisegna¬ 
to infine nel colore originale ma con 
coordinate leggermente diverse, parrà 
essersi mosso. 

L’esempio più semplice di questa 
tecnica è un breve programma con il 
quale un blocchetto sembra spostarsi 
attraverso lo schermo da sinistra a de¬ 
stra. Nel programma viene inserito a 
linea 50 un loop di pausa, in modo che 


il progresso del blocco possa essere 
osservato con maggiore facilità. 


10 GR 

20 FOR I =0 T039 
30 COLOR = 12 
40 PLOT 1,20 

50 FOR J = 1 TO50:NEXT J 
60 COLOR = 0 
70 PLOT 1,20 
80 NEXT I 


10 REM JUMPIN6 JACK - SEMPLICE ESEMPIO DI ANIMAZIONE A BASSA RISOLUZIONE 

11 REM E LO RIEMPIE COW UN ALTRO COLORE. PER CAMBIARE 

12 REM POSI2IONE E DIMENSIONI DEL RIQUADRO CAMBIA 1 

13 REM MALORI A LINEA 30 

20 6R 

30 CQL0R= 2: GOSUB 100 

40 C0L0R= 13: GOSUB 400: GOSUB 200: REM DISEGNA FIGURA A 
50 CQL0R= 0: GOSUB 400: REM CANCELLA FIGURA A 
60 CQL0R= 13: GOSUB 500: GOSUB 210: REM DISEGNA FIGURA B 
70 C0L0R= 0: GOSUB 500: REM CANCELLA FIGURA B 
80 GOTO 40 

100 HLIN 15,25 AT 39: RETURN : REM DISEGNA PIATTAFORMA 

101 REM DELL'ANGOLO IN ALTO A SINISTRA; C2 & R2 SONO LARGHEZZA 

E ALTEZZA 

110 IF CI + C2 > 40 THEN C2 = 40 - CI 

120 IF RI ♦ R2 ) 40 THEN R2 = 40 - RI 

130 HLIN CI,CI ♦ C2 - 1 AT RI 

140 HLIN C1,C1 ♦ C2 - 1 AT RI ♦ R2 - 1 

150 VLIN RI,RI ♦ R2 - 1 AT CI 

160 VLIN RI,RI ♦ R2 - 1 AT CI ♦ C2 - 1 

170 RETURN 

200 FOR I = 1 T0 200: NEXT I: RETURN : REM PAUSA LUNGA 

201 REM IN ALTO A SINISTRA DELLA CORNICE DEL RIQUADRO. C2 & R2 

SONO 

202 REM LARGHEZZA E ALTEZZA. 

210 FOR 1 * ! T0 50: NEXT I: RETURN : REM PAUSA BREVE 
220 HLIN CI ♦ 1,C1 ♦ C2 - 2 AT I 
230 NEXT I 
240 RETURN 

400 REM SUBR0UTINE PER DISEGNARE LA FIGURA CHE STA ERETTA 

410 VLIN 34,38 AT 18 

420 VLIN 33,38 AT 19 

430 VLIN 33,38 AT 20 

440 VLIN 34,38 AT 21 

450 RETURN 

500 REM SUBR0UTINE PER DISEGNARE LA FIGURA A GAMBE DIVARICATE 

510 PLOT 17,32: PLOT 22,32 

520 HLIN 17,22 AT 34 

530 PLOT 17,33: PLOT 22,33 

540 VLIN 33,36 AT 19 

550 VLIN 33,36 AT 20 

560 PLOT 18,37: PLOT 21,37 

570 PLOT 17,38: PLOT 22,38 

580 RETURN 

Listato 2. Programma Jumping Jack che illustra i principi fondamentali 
in causa nell’animazione con il computer. 
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Per far tornare il blocchetto da destra 
a sinistra si aggiunga la linea 120 (visi¬ 
bile qui sotto) e si ripetano le linee da 
30 a 80 usando i numeri da 130 a 180. 


120 FOR I = 39 TO 0 STEP-1 


Poi si aggiunga la linea 200: 


200 GOTO 20 


Adesso si ha un blocco che sembra 
rimbalzare avanti e indietro attraverso 
lo schermo. 

Per ottenere lo stesso effetto con 
una figura più complessa si impieghi 
una subroutine riempita con le infor¬ 
mazioni PLOT necessarie per definire 
la figura. Poi nelle linee 40, 70, 140 e 
170 si usi un’istruzione GOSUB, inve¬ 
ce dei comandi PLOT, per saltare a 
questa subroutine. In questo modo 
una figura statica (come una palla, un 
disco volante o un sommergibile) può 
essere disegnata, cancellata e ridise¬ 
gnata, di modo che la figura si sposti 
avanti e indietro attraverso lo 
schermo. 

Se è la figura in sé che deve mostrare 
un movimento, com’è il caso di un ani¬ 
male, di una figura umana o di un uc¬ 
cello in cui gambe, braccia o ali alter¬ 
nino posizioni differenti, si devono ri¬ 
chiamare in successione due o più su¬ 
broutine che mostrino la figura in una 
posizione diversa. Ogni percorso cicli¬ 
co del loop porterà la figura in tutte le 
sue varie posizioni una dopo l’altra. Il 
principio fondamentale (disegnare la 
figura, cancellarla e poi ridisegnarla in 
una posizione e locazione differente) 
rimane lo stesso. 

Il listato 2 contiene un ottimo esem¬ 
pio di questa tecnica, per quanto non 
molto sofisticato con la grafica a bloc¬ 
chi della bassa risoluzione, e l’impiego 
dei soli, lenti, comandi Basic. Le figu¬ 
re devono essere piccole, in modo che 
i comandi PLOT del Basic possano 
completarle il più rapidamente possi¬ 
bile. Le stesse tecniche funzionano an¬ 
che con la grafica ad alta risoluzione „e 
possono produrre qualche effetto ve¬ 
ramente sorprendente, in particolare 
quando si usano tecniche più sofistica¬ 
te di creazione dell’immagine. 

Individuazione 
di un «colpo» 

Molti giochi, imperniati sull’idea di 
sparare a un bersaglio o di bombardar- 


Listato 3. Applicazione commerciale della grafica a bassa risoluzione. Il 
programma traccia un istogramma (diagramma a rettangoli) per un 
massimo di 40 elementi che possono essere divisi in un massimo di 
cinque gruppi o categorie. 

10 REM TRACCIATORE 01 ISTOGimtt (DIAGRtftIA A RETTANGOLI) LO-R 
ES 


11 

REM 


E LO RIEMPIE C0m UN ALTRO COLORE. 


PER CAMBIARE 


12 

REM 


POSIZIONE E DIMENSIONI DEL RIQUADRO 


CAMBIA I 


13 

REM 


CALORI A LINEA 30 

20 

REM 

SD$ 4 SD 

NUMERO DEI GRUPPI DI DATI 

30 

REM 

NE* 4 NE 

NUMERO DI ELEMENTI IN CIASCUN GRUPPO 

40 

REM 

0$<I) 

NOME DI CIASCUN GRUPPO DI DATI 

50 

REM 

Cd) 

COLORE PER CIASCUN GRUPPO DI DATI 

60 

REM 

D(!,J) 

1 ' ELEMENTO DI DATI PER IL GRUPPO I 

70 

REM 

MX 

MASSIMO CALORE Dì DATI INTRODOTTO 

30 

REM 

I 4 J 

CONTATORI DI LOOP USATI INTERNAMENTE 

90 

REM 



100 

HOME 



101 

REM 


DELL'ANGOLO IN ALTO A SINISTRA; C2 i R2 SGN 


0 LARGHEZZA E ALTEZZA 
110 OIM C<5),0*(5) 

120 GOSUB 500 
130 GOSUB 1000 
140 GOSUB 300 

150 VTAB 24: INPUT •PREMI (RETURN) PER FINIRE... *;XS 
160 TEX7 : HOME : END 
170 RETURN 

200 FOR I = 1 TO 200: NEXT I: RETURN : REM PAUSA LUNGA 

201 REM IN ALTO A SINISTRA DELLA CORNICE DEL RIG0AD 

R0. C2 4 R2 SONO 

202 REM LARGHEZZA E ALTEZZA. 

210 FOR I = 1 T0 50: NEXT I: RETURN : REM PAUSA BREVE 
220 HLIN CI ♦ 1,C1 ♦ C2 - 2 AT I 
230 NEXT I 

240 RETURN 

400 REM SUBR0UTINE PER DISEGNARE LA FIGURA CHE STA ERETTA 

410 VLIN 34,38 AT 18 

420 VLIN 33,38 AT 19 

430 VLIN 33,38 AT 20 

440 VLIN 34,38 AT 21 

450 RETURN 

490 REM SUBR0UTINE DI INTRODUZIONE DEI DATI 
500 INPUT 'Olmi 6RUPPI DI DATI <5MX)?';SW 
510 SD = VAL (SD$): IF SD < 1 OR SD > 5 THEN 500 
520 PRINT "QUANTI ELEMENTI IN CIASCUN GRUPPO <•; INT (40 / SD); 
-MX)?-; 

530 INPUT ■ " ;NE4:NE = UAL <NE$) 

540 IF NE < 1 OR NE > INT (40 / SD) THEN PRINT 'TROPPI DATI': 

GOTO 500 

550 FOR I * 1 T0 SD 

560 PRINT 'NOME CHIAVE PER GRUPPO DI DATI £•;!; 

570 INPUT •: -;D$(I) 

580 NEXT I 
590 DIM D(SD,NE) 

600 C(l) = 1:C<2) = 7:C<3) = 9:C(4) = 12sC<5) = 2 
610 MX = 0 

620 FOR I * l T0 SD 

630 HOME : PRINT 'DATI PER -;D$d> 

640 FOR J = 1 T0 NE Continua 
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MKROCflP 

Microcomputer Circuit 
Analysis Program 

ANDREW THOMPSON 
SPECTRCJM SOFTWARE 

DISTRBUTED BY McGRAW-HLL BOOK COMPANY 


Micro-Cap. Ideale per il progettista elettronico, è uno 
strumento che consente di disegnare il circuito direttamente sul monitor, 
attingendo da una libreria di componenti, e di simularne 
il funzionamento elettrico, rilevando le stesse misure e forme d'onda 
che un oscilloscopio ricaverebbe dal montaggio realizzato. In edizione 
originale americana, con manuale d'uso, Demo diskette, Data 
diskette e Program diskette, è disponibile per Apple//. Lire 990.000 + 
Iva (Abbonati ad Applicando lire 900.000 + Iva). 
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^ n MWO-Cap 
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scadenza. fHma .^"'"r; sca \ e /PartdaWa 
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creare conferenze, lezioni interattive, 
seminari, presentazioni di sicuro effetto con 
grafica, testi, suoni, colori, animazioni. 
In edizione originale americana. 
Lire 600.000 + Iva (Abbonati 
ad Applicando lire 550.000 + Iva). 

MicroTSP. Ideale per previsioni 
di vendite, analisi e previsioni dei costi, 
analisi finanziaria e previsioni 
macroeconomiche. Offre la possibilità 
di conservare, manipolare e 
trasferire serie di dati, applicando tutte 
le più note tecniche statistiche. 
In edizione originale americana. 
Lire 600,000 + Iva (Abbonati 
ad Applicando lire 550.000 + Iva). 
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Ritagliare e spedire a: 
Editronica Srl, 

Corso Monforte 39, 
20122 Milano. 
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...e Le pagine del Software. 
Applicando le offre con lo sconto e in due edizioni. 
A chi? Ai suoi abbonati. Come fare? Basta abbonarsi 
con la formula Applicando + Le pagine del Software. 
Con i sei numeri di Applicando si avrà diritto a: 
© il dischetto con tre programmi gratis © la carta Applicard 
® Le pagine del Software nell’edizione settembre 1984 e 

in quella successiva. 
Un motivo in più per abbonarsi o rinnovare subito 
l’abbonamento e per poter avere... 
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gratis, se ti abboni subito! 


è bimestrale, 
applicare con noi 
abbonati inviando il 
coupon a 
Editronica s.r.l., 

C.so Monforte 39, 
20122 Milano. 

Oppure acquistalo: 
nei migliori 
Computer Shop. 


a V,v>on»« 


Un dischetto con tre utilissimi superprogrammi e la 
Facility Card Applicard che, fra gli altri vantaggi, 
darà diritto a sconti su programmi che verranno 
offerti da Applicando. Compila e spedisci 
subito questo tagliando a: 

Editronica, C.so Monforte 39, 

20122 Milano. 


i Sì, mi abbono! 

I □ Inviatemi sei numeri di Applicando, il dischetto con 
| tre programmi gratis, e la carta Applicard - Lire 30.000. 

I □ Inviatemi sei numeri di Applicando, il dischetto 
■ omaggio, la carta Applicard + Le pagine del Software 
| per Apple (due edizioni) - Lire 40.000. 

I □ Allego assegno non trasf. - Lire 30.000 intestato 

I a Editronica S.r.l. 

I □ Allego ricevuta di versamento sul conto 

| corrente postale n. 19740208 intestato a Editronica s.r.l 
I C.so Monforte 39,20122 Milano. 

I 
I 
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□ Pago fin d’ora con la mia carta di Credito 

BankAmericard numero . 

scadenza . 

autorizzando la Banca d’America e d’Italia ad 
addebitare l’importo sul mio conto BankAmericard. 
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lo, oppure di intercettare una palla, 
sfruttano graficamente la possibilità di 
tracciare un punto sullo schermo por¬ 
tandolo sopra una posizione di scher¬ 
mo già precedentemente tracciata. Il 
comando che lo fa utilizza la funzione 
SCRN(aa,bb), che «guarda» la posi¬ 
zione di schermo con colonna aa e riga 
bb e dà un numero che corrisponde al 
colore trovato in quella locazione. Se 
il display sta usando il nero come sfon¬ 
do lo statement 


X = SCRN(15,32) 


darà un valore di 0 se la posizione 
15,32 non è stata accesa con un’istru¬ 
zione PLOT, o qualche valore com¬ 
preso fra 1 e 15 se è stata accesa. Prima 
di tracciare la nuova posizione di una 
palla da tennis, per esempio, la posi¬ 
zione contemplata viene controllata 
per verificare se il valore SCRNQ per 
quella posizione è ancora 0. Se lo è, la 
palla viene ridisegnata per la nuova 
posizione. Se il valore SCRNQ per 


quella posizione non è 0, significa che 
è stata colpita dalla racchetta o dal 
bordo sull’orlo dello schermo. Se si 
usano colori differenti, il valore di X 
dirà anche su quale oggetto la palla sia 
rimbalzata. 

Costruzione istogramma 
a bassa risoluzione 

Il listato 3 illustra un’utile applica¬ 
zione della grafica lo-res agli impieghi 
gestionali. Il programma permette di 
costruire un istogramma (diagramma 
a rettangoli) per differenti gruppi di 
dati, fino a un massimo di cinque, 
ognuno dei quali sarà rappresentato 
da un colore diverso, con rettangoli 
disegnati fianco a fianco sullo scher¬ 
mo. Può essere visualizzato un totale 
di 40 elementi diversi: se viene usato 
un singolo gruppo di dati, si possono 
introdurre 40 elementi di quel gruppo; 
se invece si confrontano due gruppi, 
ciascun gruppo può contenere fino a 
20 elementi; se si usano cinque gruppi, 
ogni gruppo è limitato a otto elementi. 

Supponiamo, per esempio, che si 
voglia illustrare il prodotto nazionale 
lordo relativo agli Stati Uniti, Germa¬ 
nia Occidentale, Gran Bretagna e 
Francia negli ultimi dieci anni. Si 
avranno quattro gruppi di dati, e cia¬ 
scun gruppo conterrà dieci elementi di 
dati. Il programma chiederà il numero 
di gruppi che si vuol visualizzare (cin- 


650 PRINT 'GRUPPO £';I;' - ELEMENTO 'jJ;': 

660 INPUT ";D$ 

670 0(1,J) = VAL <D*> 

680 IF D(I,J) > NX THEN MX = D(I,J) 

690 NEXT J 
700 NEXT I 
710 RETURN 

800 GR : HOME ; REM SUBR0UTINE DI TRACCIAMENTO DEL DIAGittftt A 
RETTANGOLI 

810 FOR J = 1 T0 NE 
820 FOR I = i T0 SO 
830 C0L0R= Cd) 

840 VLIN 40 - 0(1,J),39 AT I ♦ SO * (J - 1) - 1 

850 VTAB 21: IF J / 2 = INT (J / 2 ♦ .15 THEN VTAB 22 

860 PRINT LEFT$ (Wd),l)j 

870 NEXT I 

880 NEXT J 

890 RETURN 

990 REM SUBR0UTINE CHE N0RMLIZZA I DATI PERCHE' STIMO NEL DI 
SPLAY 

1000 FOR I » 1 T0 SD 

1010 FOR J = 1 T0 NE 

1020 Dd,J) = INT (0d,J) * 40 / NX) 

1030 NEXT J 

1040 NEXT 1 

1050 RETURN 


que al massimo) e chiederà di dare un 
nome a ciascun gruppo. Il display usa- 
rà solo la prima lettera del nome, e 
quindi andranno scelti per i vari gruppi 
nomi con iniziali diverse. Per esempio 
i nostri quattro paesi potrebbero esse¬ 
re chiamati Stati Uniti, RFT (Repub¬ 
blica Federale Tedesca), Gran Breta¬ 
gna e Francia. Viene poi chiesto il nu¬ 
mero di elementi da includere in cia¬ 
scun gruppo (il computer respingerà, a 
questo punto, qualsiasi immissione di 
oltre 40 elementi da tracciare) e il pro¬ 
gramma utilizza l’informazione per di¬ 
mensionare la matrice di dati. Viene 
poi chiesto di introdurre gli elementi 
di dati per ciascun gruppo, un gruppo 
completo alla volta. 

Per sfruttare al massimo l’altezza 
dello schermo, il programma prende 
nota degli elementi di dati a mano a 
mano che vengono introdotti, e con¬ 
serva come MX il singolo elemento di 
valore più alto. Questo elemento vie¬ 
ne poi usato per adattare l’altezza rela¬ 
tiva di tutti gli altri, in modo che MX si 
estenda dalla linea di base alla sommi¬ 
tà dello schermo. Si attua cioè una 
sorta di normalizzazione, con ciascun 
elemento moltiplicato per 40 e diviso 
per il valore di MX, in modo che i 
valori relativi restino identici, ma tutti 
gli elementi abbiano valori compresi 
fra 0 e 40. 

La routine di tracciamento visualiz¬ 
za il primo elemento di ciascun grup¬ 
po, con gli elementi disposti fianco a 
fianco; poi il secondo elemento di ogni 
gruppo; poi il terzo e così via. Ciascun 
gruppo è rappresentato da un diverso 
colore è anche da un prompt di una 
lettera sulla linea di visualizzazione 
del testo nelle righe 21 e 22, di modo 
che i diversi gruppi possano essere dif¬ 
ferenziati e confrontati con facilità. 

Un altro esempio d’impiego di que¬ 
sto programma potrebbe essere la 
comparazione fra il numero di abita¬ 
zioni vecchie e quello di abitazioni 
nuove vendute in un periodo dato in 
un certo luogo, così come il confronto 
tra i tassi d’interesse e il numero delle 
vendite di proprietà immobiliari in un 
certo arco di tempo. Si deve però con¬ 
siderare che il programma presuppone 
che tutti i valori siano nello stesso am¬ 
bito; di conseguenza, se i tassi d’inte¬ 
resse variano dal 9 al 18 per cento e le 
vendite di proprietà immobiliari da 
120 a 350, i tassi d’interesse vanno 
moltiplicati per 15 prima di essere in¬ 
seriti. L’arco dei tassi d’interesse di¬ 
venta allora compreso fra 135 e 270 
(valori relativi), e se ne può fare il 
tracciamento fianco a fianco con le 
vendite di proprietà. ■ 


® 1983 by Incider e Applicando 
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I tipi enumerativi usano parole anziché numeri. I tipi 
< 10 ^ sottointervallo consentono rigidi controlli. Il Pascal 
non ha bisogno di numeri astratti, adotta parole di 
uso comune. Soprattutto aiuta a non sbagliare. Per 
gestire il video e la tastiera poi... 

Tipi 

e variabili 


D opo aver creato il primo program¬ 
ma in Pascal e aver capito che co- 
s’è il compilatore in queste pagine si 
analizzeranno i concetti di tipo e di 
struttura di dati : un argomento piutto¬ 
sto astratto. Alla base del concetto di 
tipo sta il fatto che un programma non 
può operare direttamente sulla realtà, 
ma è costretto a operare su una rap¬ 
presentazione simbolica. Consideria¬ 
mo, per esempio, un programma che 
giochi a scacchi: esso non opera su una 
scacchiera reale, ma su una sua rap¬ 
presentazione fisicamente localizzata 
nella memoria del calcolatore. 

Il primo problema da porsi quando 
si affronta la stesura di un programma, 
infatti, è quello di scegliere una ade¬ 
guata rappresentazione simbolica della 
realtà. Per esempio, se stiamo scriven¬ 
do un programma che tratta le infor¬ 
mazioni anagrafiche della popolazio¬ 
ne, dovremo innanzitutto definire in 
memoria, ed esprimere linguistica- 
mente in modo adeguato, una oppor¬ 
tuna rappresentazione della «carta di 
identità», nonché dei vari documenti e 
certificati da manipolare. 

Il linguaggio Pascal permette di 
esprimere le entità in gioco in maniera 
estremamente vicina alla realtà, poi¬ 
ché non obbliga a vedere il mondo in 
termine di numeri, ma consente una 
visuale simbolica. 

Per la nostra scacchiera, per esem¬ 
pio, non sarà certo conveniente consi¬ 
derare 64 variabili contenenti numeri; 
nettamente preferibile, e possibile con 
il Pascal, sarà considerare una matrice 
8 * 8 di «caselle», ciascuna delle quali 
può contenere i seguenti valori: «vuo¬ 
to», «pedone», «alfiere», «re». 

In sostanza, anziché modellare il 
problema in conformità del program¬ 
ma, è possibile modellare il program- 

■■■■■■■■■■■■■ 


ma in conformità del problema, utiliz¬ 
zando termini e non numeri. Per inten¬ 
derci, in Pascal le variabili non sono 
viste come «contenitori di numeri», 
ma come «contenitori di valori qual¬ 
siasi»: e questi «valori qualsiasi» ven¬ 
gono essi stessi definiti nel programma 
attraverso un’opportuna dichiarativa. 
L'insieme di tutti i valori che una varia¬ 
bile può assumere viene detto «tipo» 
della variabile, e definire un tipo signi¬ 
fica definire un insieme di valori. 

Ad esempio si può definire il tipo 


«casella» elencando i valori «vuoto», 
«pedone», «alfiere», «cavallo», «tor¬ 
re», «regina», «re»:' una variabile di 
tipi «casella» non può contenere nu¬ 
meri e tantomeno caratteri: potrà solo 
contenere uno di quei valori. 

In Pascal i tipi vengono definiti at¬ 
traverso la dichiarativa “ TYPE ” e le 
variabili vengono definite attraverso 
la dichiarativa “VAR”. Ambedue so¬ 
no localizzate nella «parte dichiarazio¬ 
ni» del programma, cioè prima del 
“BEGIN” (vedi Figura 1). 


PROGRAM SCACCHI; 

TYPE CASELLA= (VUOTO,PEDONE,ALFIERE,. 

TORRE,C AVALLO, REGIN A,RE) ; 

VAR X,y,K : CASELLA 

BEGIN 

X: = CAVALLO; 

IF Y=VUOTO THEN... 

FOR K.=PEDONE TO RE DO... 

END. 

Figura 1. Esempio di dichiarazione e uso del tipo «casella». 
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Osserviamo, in Figura 1, il significa¬ 
to degli identificatori che abbiamo de¬ 
finito: 

1- X,Y,K sono nomi di variabili, poi¬ 
ché appaiono al seguito della parola 
chiave “VAR”. Queste possono esse¬ 
re usate negli assegnamenti (per attri¬ 
buire un valore, ad esempio X: = ....) o 
nelle espressioni (per leggere il conte¬ 
nuto, ad esempio ....:=X). 

2- VUOTO, PEDONE, ALFIERE, 
.... sono nomi di costanti, o meglio di 
valori del tipo CASELLA. A esse non 
possiamo assegnare valori, perché 
non sono variabili: scrivere 
PEDONE: =.... sarebbe un errore. Le 
costanti possono tuttavia essere usate 
nelle espressioni, trattandosi, appun¬ 
to, di valori (per esempio 
.:= PEDONE). 

3- CASELLA è un nome di tipo, poi¬ 
ché appare al seguito della parola chia¬ 
ve “TYPE”. Questo nome non deve 
comparire nella «parte istruzioni» del 
programma, cioè dopo il BEGIN. Es¬ 
so serve solo ed esclusivamente per de¬ 
finire delle variabili (per esempio 
VAR X,Y,K: CASELLA). 

Qualsiasi uso differente di tali iden¬ 
tificatori causerà un errore, che verrà 
segnalato dal compilatore. 

Classifichiamo i «tipi» 
del Pascal 

Esistono più modi, in Pascal, per 
definire dei tipi: possono essere sem¬ 
plici, pointer o strutturati; in Figura 2 
ne vediamo una classificazione com¬ 
pleta. 

I tipi semplici possono essere a loro 
volta predefiniti o definiti nel pro¬ 
gramma. 

I tipi semplici predefiniti sono 
quattro: 

INTEGER: cioè l’insieme dei numeri 
interi. 

REAL: cioè Pinsieme dei numeri 
reali. 

Questo tipo differisce dall’INTE- 
GER non solo perché contiene i valori 
«con la virgola», cioè un insieme quasi 
continuo di numeri, ma anche perché i 
valori vengono memorizzati dal calco¬ 
latore in maniera differente. Senza en¬ 
trare nei dettagli di implementazione 
basta dire che il numero 1 è differente 
dal numero 1.0. Evitate dunque 
espressioni in cui siano mischiati degli 
operandi interi con degli operandi rea¬ 
li. I numeri reali, a causa della loro 
particolare implementazione, hanno 
una certa imprecisione : per esempio, il 
numero 1.2345678 può talvolta risulta¬ 
re 1.2345679, oppure l’espressione 
5.0-0.361 potrebbe, in alcuni casi, es¬ 


sere differente da 1E2 / 5.0. Evitate 
dunque di confrontare l’uguaglianza 
fra operandi reali: confrontate piutto¬ 
sto la loro vicinanza. Per esempio, sia¬ 
no RI e R2 due variabili di tipo 
REAL, evitate di scrivere 


IFR1=R2 THEN 


scrivete piuttosto 


IF (Rl<R2-EPSILON) AND 
(Rl>R2+EPSILON) THEN. 

con EPSILON piccolo a piacere (per 
esempio 1E-15). 

BOOLEAN: cioè l’insieme dei valori 
di verità, TRUE per vero e FALSE 
per falso. 

Una variabile di tipo BOOLEAN 
può solo assumere quei due valori: per 
esempio, 


VAR B:BOOLEAN; 


significa che posso scrivere 
B:=TRUE ma non B:=3. 

Il tipo BOOLEAN è dunque prede¬ 
finito, ogni valore al di fuori di quelli 
di verità non viene accettato. 

È una regola da tenere bene a men¬ 
te. Per aiutare la nostra memoria po¬ 
tremmo immaginarlo definito così: 


TYPE 

BOOLEAN=(FALSE ,TRUE). 


Sulle variabili booleane sono am¬ 
messi gli operatori logici AND, OR e 
NOT e gli operatori relazionali = ,>,<, 
><,. 

Va tenuto presente che, per conven¬ 
zione, il valore FALSE è minore di 
TRUE. Osserviamo alcuni usi interes¬ 
santi di variabili booleane. 
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VAR 

Bl,B2=BOOLEAN;LINTEGER; 


B1:=I=0 

IF B1 THEN. 

WHILE B1><B2 DO 


L’istruzione B1:=I=0 significa che 
la variabile booleana B1 assumerà il 
valore di TRUE se I è uguale a zero, 
altrimenti assumerà il valore FALSE. 
L’istruzione IF B1 THEN.... significa 
che il ramo THEN viene eseguito se B 
vale TRUE, altrimenti viene eseguito 
il ramo ELSE (se c’è). L’istruzione 
WHILE B1><B2 DO... significa che 
viene ripetuto lo statement fino a 
quando B1 e B2 saranno entrambe 
TRUE o entrambe FALSE. 

CHAR: cioè l’insieme dei caratteri 
della codifica ASCII (per l’Apple). 
Una variabile di tipo «carattere», per 
esempio 


VAR C=CHAR, 


può solo contenere dei caratteri, an¬ 
che non stampabili: 


C:=’A’; 

C:=T; 

C:=””; 


Nell’ultimo esempio alla variabile C 
viene assegnato il carattere apice. A 
ogni carattere è associato un numero, 
secondo la tabella ASCII (vedi ma¬ 
nuali). Esiste una funzione che forni¬ 
sce il numero associato a un carattere: 
si chiama ORD. Per esempio, scriven¬ 
do I: = ORD(’A’), si assegna a I il valo¬ 
re intero 65. Analogamente, la funzio¬ 
ne CHR fornisce il carattere associato 
a un numero: con C:=CHR(27) si as¬ 
segna alla variabile C (di tipo CHAR) 
il carattere ESCAPE. La funzione 
CHR è utile per maneggiare i caratteri 
non stampabili, come per esempio l’E- 
SCAPE, il LINE FEED,. 

Con i tipi enumerativi 
basta la parola 

Passiamo ora ai tipi definiti da pro¬ 
gramma. Esistono due modalità di de¬ 
finizione: l’ enumerazione e il sottoin¬ 
tervallo. 


Definire un tipo per enumerazione 
significa enumerare o elencare tutti i 
suoi valori. Tali valori devono essere 
denotati da identificatori separati da 
virgole e racchiusi da parentesi tonde. 
Alcuni esempi compaiono in Figura 3. 

I valori di un tipo hanno una relazio¬ 
ne di ordine fra di loro; per esempio 
BIANCO è minore di GIALLO che è 
minore di ROSSO....; NERO è il 
maggiore di tutti. Così pure per gli 
altri tipi: LUN è il minore, DOM il 
maggiore. Consideriamo l’istruzione 


FOR CAPITALE: = VARSAVIA 
TO ISTANBUL DO.... 


Qui la variabile CAPITALE assu¬ 
me inizialmente il valore VARSA¬ 
VIA, poi viene incrementata a MO¬ 
SCA, poi diventa OSLO e infine sarà 
ISTANBUL: come avete visto, viene 

PROGRAM ESEMPIODITIPI; 


rispettato l’ordine con cui i valori sono 
elencati nella dichiarativa TYPE. 

A cosa servono i tipi enumerativi? Il 
Pascal è un linguaggio strutturato, 
cioè orientato a facilitare la vita al pro¬ 
grammatore, rendendola più difficile 
al calcolatore. Ebbene, il Pascal non ci 
obbliga a trattare la realtà a suon di 
numeri, ma ci lascia esprimere i con¬ 
cetti con le stesse parole che usiamo 
abitualmente. 

Se mi dovesse capitare di trovare un 
programma Pascal sul tavolo di un 
amico e vi leggessi TYPE VACANZA 
= (MARE, MONTAGNA, VIAG¬ 
GIO, SPORT, CAMPAGNA) capirei 
subito il significato di quel programma 
e gli chiederei: «Ma insomma, ora an¬ 
che le vacanze le programmi con 
l’Apple?». 

Un altro enorme vantaggio dei tipi 
enumerativi è un maggiore controllo 
da parte del compilatore. 

Supponiamo di aver bisogno di una 


TYPE COLORE - (B1 ANCO,GIALLO,ROSSO, VERDE^LU/NERO); 
GIORNO = (LUN,MAR,MER,GIO,VEN,SAB,DOM) ; 

MISURA * (TEMPERATURA^RESSION^UMIDITA^FUMO); 
SEME = (CUORLQUADRI/IORI.PICCHE); 

CIFRAROMANA = (I^X^CAM); 

NOTA * (DOO / RE,MI,FA,SOL,LaSI); 

MESE = (GEN / FEB / MAR / APR / MAG / GIU,LUG / AGO,SETT / OTT / 
NOVAC); 

DIREZIONE = (SUA^DESTRA^INISTRA); 

CITTA * (VARSAVIA^OSCA^SLO^STAMBUL); 

VAR NATALE,PASQUA,FERR AGOSTO : GIORNO; 

VERNICE : COLORE; 

CAPITALE : CITTA; 

BEGIN 

IF NATALE = DOM THEN... 

FOR CAPITALE := VARSAVIA TO ISTAMBUL DO... 

WHILE VERNICE <> VERDE DO... 

END. 

Figura 3. Esempi di definizione e uso di tipi per enumerazione. 
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variabile per memorizzare che giorno 
è oggi (chiamiamola OGGI). Se la de¬ 
finisci come intera: 


VAR OGGI:INTEGER, 


potrei ottenere un errore assegnando¬ 
le un valore superiore a 7. Tale errore 
non verrebbe segnalato né in fase di 
compilazione né in esecuzione, ma il 
risultato che otterrei dal mio program¬ 
ma sarebbe sbagliato (per esempio ri¬ 
sulterebbe che lunedì è un giorno fe¬ 
stivo). 

Se invece lo definissi di tipo GIOR¬ 
NO (vedi Figura 3): 


VAR OGGLGIORNO, 


non potrei sbagliare: un eventuale as¬ 
segnamento di valore inferiore a LUN 
o superiore a DOM verrebbe subito 
segnalato o in fase di compilazione o in 
fase di esecuzione. 

I tipi «sottointervallo» 
ti avvertono se sbagli 

Passiamo ora ai tipi per sottointer¬ 
vallo. Questi tipi esistono per la ragio¬ 
ne appena vista sopra: si tratta di un 
tipo definito come un sottointervallo 
di un altro tipo, specificando il primo e 
l’ultimo valore separati da un doppio 
punto. Vedi Figura 4. 

Un tipo definito per sottointervallo 
è basato su un altro tipo detto 
« ospite ». 

Ad esempio il tipo ospite di ESTA¬ 
TE è MESE, il tipo ospite di LETTE¬ 
RA è CHAR, di ORARIO è IN- 
TEGER. 

Durante l’esecuzione del program¬ 
ma, ogni assegnamento a una variabile 
di tipo sottointervallo viene automati¬ 
camente controllato: se il valore asse¬ 
gnato fosse fuori dai limiti dell’inter¬ 
vallo il programma verrebbe fatto 
abortire con un messaggio del tipo 
“value rande error” (errore nell’inter¬ 
vallo di valori). 

Abbiamo dunque terminato di par¬ 
lare dei tipi semplici, secondo le classi¬ 
ficazioni di Figura 2. 

Del tipo POINTER , o puntatore, 
non parleremo in questa puntata per¬ 
ché richiederebbe troppo sforzo: lo 
vedremo nelle prossime. 

Torniamo un attimo a rivedere le 
Figure 3 e 4: notiamo che i tipi si defi¬ 
niscono attraverso la dichiarativa 
“TYPE” e le variabili attraverso la di¬ 
chiarativa “VAR”. 


Esiste la possibilità di fare delle di¬ 
chiarative «abbreviate», definendo in 
una sola volta sia il tipo sia la variabile. 

Per esempio, in riferimento alla Fi¬ 
gura 3, potremmo seguire questo pro¬ 
cedimento: 

Notate che la definizione del tipo 


VAR VERNICE: 

(BIANCO, Gl ALLO, ROSSO, VER¬ 
DE,BLU,NERO); 


compare direttamente nella dichiara¬ 
tiva “VAR”. 

Siamo quindi liberi di scegliere se 
usare o meno la dichiarativa “TYPE”. 
Se si usa la “TYPE”, allora bisogna 
dare un nome al tipo, mentre se si usa 
direttamente la VAR si dà diretta- 
mente il nome alla variabile e non al 
tipo. 

Attenzione: nella “TYPE” si usa 
l’ uguale, nella “VAR” si usa il duepun¬ 
ti. Osservate l’esempio qui sotto: com¬ 
paiono due dichiarative del tutto equi¬ 
valenti. 


TYPE T=(UNO,DUE,TRE); 
VAR X:T; 

E equivalente a 


VAR X:(UNO,DUE,TRE); 


Sappiate che, se usate la “TYPE”, 
questa deve comunque predecere la 
“VAR”. 

Tastierina e video facili 

Passiamo ora a un argomento «pra¬ 
tico»: vediamo come si fa a «leggere» 
da tastiera un certo valore di un certo 
tipo e come si fa a inserirlo in una 
variabile. 

Analogamente vediamo come si 
possa far scrivere sul video il valore di 
una variabile di un certo tipo. 

Saremo presto in grado di scrivere 
dei programmini che colloquino con 
l’utente. 

Trattiamo qui solo l’input/output ri¬ 
volto all’utente (video e tastiera); dei 
files su floppy parleremo in seguito. 

Per leggere da tastiera basta fare un 
richiamo alla procedura READ o 
READLN. Queste causano l’interru¬ 
zione del programma finché non ven¬ 
gano battuti dei tasti, dopodiché l’ese¬ 
cuzione del programma riprende. La 
READLN è identica alla READ, ma 




























































richiede che l’ultimo tasto battuto sia 
un “return”. 

Il comportamento della READ di¬ 
pende dal tipo della variabile in cui si 
vuole leggere; si possono leggere (o 
scrivere) solo valori di tipi predefiniti e 
precisamente 


INTEGER 

REAL 

CHAR 

STRING 


Non si possono leggere o scrivere 
valori di tipi enumerativi. I valori di 
tipo sottointervallo si possono leggere 
solo se il «tipo ospite» è uno dei quat¬ 
tro sopra elencati. 


Il tipo string non è standard; però 
c’è sull’Apple. 

Vediamo come si comportano la 
READ e la READLN in questi quat¬ 
tro casi: 

1 - INTEGER. Sia luna variabile in¬ 
tera. 

READ (I) : sulla tastiera devo 
battere una sequenza di cifre e termi¬ 
nare con un carattere qualsiasi che non 
sia una cifra. Tale carattere viene mes¬ 
so nel buffer e verrà letto dalla even¬ 
tuale prossima READ. Il numero let¬ 
to verrà inserito in I. 

READLN (I) : devo battere una 
sequenza di cifre e terminare con un 
“return”. Il return non viene mante¬ 
nuto nel buffer, bensì viene «consu¬ 
mato». Una eventuale successiva 


PROGRAM ESEMPIDITIPI ; 

(* QUI CI SONO TUTTI I TIPI DI FIG. 3 *) 

TYPE COLORECHIARO = BIANCO .. GIALLO ; 
GIORNOFERIALE = LUN .. VEN ; 
SEMEROSSO = CUORI .. QUADRI ; 
ESTATE = GIU .. AGO ; 

ANNO = 1982 .. 2000 ; 

LETTERA - ’A' .. ’Z' ; 

CIFRA = ‘0* .. '9' ; 

DOZZINA = 1 .. 12 ; 

ORARIO = 8 .. 17 ; 

VAR QUANDO : ANNO ; 

AGENDA : GIORNOFERIALE ; 

FERIE : ESTATE ; 

ORA : ORARIO ; 

BEGIN 


QUANDO - 1983 ; 

IF FERIE = AGO THEN VAIALMARE ; 

REPEAT 

LAVORA ; 

IF ORA « 13 THEN MANGIA ; 
UNTIL ORA = 17 ; 

TORNA A CASA ; 


AGENDA .-= SAB ; (* QUESTO E' UN ERRORE *) 

END. 

Figura 4. Definizione e uso di tipi per sottointervallo. 
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Quella lettera... 

Nei primi del Novecento matema¬ 
tici e filosofi stavano tentando di 
unificare le teorie scientifiche ri¬ 
conducendo la matematica alla lo¬ 
gica formale. Il matematico-logico 
tedesco Frege vi stava lavorando 
da dieci anni quando in una lettera 
di un giovane studente si leggeva: 
«Qual è l’insieme che contiene tutti 
gli insiemi tranne se stesso?» 

Da questo paradosso Frege capì 
che il problema che stava affron¬ 
tando era irrisolvibile e il suo lavoro 
da buttare. Nacque da qui il con¬ 
cetto di tipo, formalizzato e adatta¬ 
to ai linguaggi da C. Hoare. A pro¬ 
posito... quel giovane studente si 
chiamava Bertrand Russell. 

READ non troverà alcun carattere nel 
buffer. 

2 - RE AL. Sia R una variabile reale. 

READ (R) : sulla tastiera deve 
essere battuta una sequenza che ri¬ 
spetti la sintassi di «numero reale» 
(Vedi carta sintattica in Figura 8 nella 
puntata precedente). Anche qui si ter¬ 
mina con un carattere diverso da una 
cifra. Il valore letto verrà inserito in R. 

READLN (R) : vale lo stesso di¬ 
scorso fatto per l’INTEGER, rispet¬ 
tando la carta sintattica di «numero 
reale». 

3 - CHAR. Sia C una variabile di 
tipo char. 

READ (C) : appena premo un 
tasto, la READ lo legge e il program¬ 
ma prosegue; C conterrà il carattere 
letto. 

READLN (C) : devo premere un 
tasto seguito da “return”. Se ne premo 
più di uno prima del “return”, viene 
letto solo il primo. 

4 - STRING. Sia S una variabile di 
tipo stringa. 

READ (S) : non si può leggere 
una stringa con una READ : è obbliga¬ 
torio usare la READLN. 

READLN (S) : devo premere 
una sequenza di tasti qualsiasi e termi¬ 
nare con “return” (il quale ovviamen¬ 
te viene «consumato» a vuoto). La va¬ 
riabile S conterrà i caratteri letti. 

Se uso READLN senza parametri, 
il programma si blocca in attesa di un 
“return”. 

Passiamo alla parte WRITE. 

La procedure WRITE fa scrivere 
qualcosa sul video ; la WRITELN ha lo 
stesso effetto della WRITE ma, in più, 
manda a capa il cursore dopo aver 
scritto. 

Per mandare a capo il cursore senza 


scrivere nulla, useremo la WRITELN 
senza alcun parametro. 

Distinguiamo anche qui alcuni casi: 

1 - INTEGER. Sia I una variabile 
intera che contiene ad esempio 123. 

WRITE (I) : fa scrivere 123 e 
basta. 

WRITE (1:5) : fa scrivere sul vi¬ 
deo 123 in un formato di 5 caratteri, 
allineando il numero a destra e scri¬ 
vendo dei blanks nello spazio ecceden¬ 
te sulla sinistra. Se specifico un nume¬ 
ro di caratteri inferiore al necessario, 
ad esempio WRITE (1:2), non viene 
segnalato alcun errore e il numero 123 
viene comunque scritto su tre caratte¬ 
ri, ignorando la richiesta (errata) di 
usarne solo due. 

2 - REAL. Sia R una variabile reale 
che contiene, ad esempio, 123.45. 

WRITE (R) : fa scrivere sul video 
il valore di R in formato potenziale , 
cioè: 1.2345E2. 

WRITE (R:7) : fa scrivere sul vi¬ 
deo il valore di R informato decimale 
su 7 caratteri, cioè: 123.45, allineando 
il numero a sinistra e lasciando even¬ 
tuali blanks a destra. La richiesta 
WRITE (R:3) verrebbe così ignorata, 
perché 3 caratteri sono insufficienti. 

WRITE (R:7:3) : fa scrivere sul 
video il valore di R in formato decima¬ 
le su 7 caratteri, tre dei quali dopo la 
virgola: 123.450. 

3 - CHAR e STRING. Sia S un ca¬ 
rattere o una stringa. 

WRITE (S) : fa scrivere il caratte¬ 
re o la stringa sul video. 

WRITE (S:10) : fa scrivere sul 
video la stringa allineata a destra , la¬ 
sciando eventuali blanks a sinistra per 
colmare i 10 caratteri. Per «abbuiare» 
il video usate la procedura 


PAGE(output). 


Questa manda il cursore in alto a si¬ 
nistra. Per mandare il cursore in un 
certo punto del video usate la proce¬ 
dura 


GOTOXY(x,y). 


Questo manda il cursore nella x- 
esima colonna della y-esima riga a par¬ 
tire dall’altro a sinistra. 

Le colonne vanno da 0 a 39 e le linee 
da 0 a 23. Ad esempio, per mandare il 
cursore in centro al video scriveremo: 


GOTOXY(19,ll). 


Alessandro Mazzetti 
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Un disc-jockey infallibile tiene sotto controllo 
la collezione di longplaying e di nastri. 

Non solo può memorizzare più di 300 album su un floppy, 
ma trova sempre il pezzo giusto. 


La canzone la trovi 
sul dischetto 


Q uando, nel 1964, i Beatles invase¬ 
ro l’America, cominciò non sol¬ 
tanto una nuova era nella musica rock, 
ma anche un modo nuovo di collezio¬ 
nare album, tanto che adesso sono in 
parecchi ad avere discoteche con più 
di 500 titoli di lp. Accade molto spesso 
che le collezioni tendano a crescere e 
crescere fino a quando emerge la ne¬ 
cessità di un sistema di catalogazione. 
Discoteca System è il risultato di tale 
necessità. Programma pilotato da me¬ 
nù, in congiunzione con il DOS 3.3, 
può memorizzare più di 300 album, 
completi dei titoli e della durata delle 
singole canzoni, su un unico dischetto. 
Il programma, come è stato scritto, 
richiede 48K, 1’Applesoft e un disk 
drive.Il DOS 3.3 memorizza circa 300 
titoli mentre il DOS 3.2 memorizza 
circa 240 titoli per dischetto. 

Inserito il disco, sul video compare il 
menù principale (vedere Figura 1). 

L’aggiunta di record 

Quando l’utente aggiunge un re¬ 
cord, gli viene chiesto di introdurre il 
nome dell’album, il nome dell’artista e 
il mezzo di registrazione. Poi vengono 
introdotti i titoli delle singole canzoni 
(con un massimo di 14) e la loro dura¬ 
ta, e i dati definitivi vengono memoriz¬ 
zati in due text file distinti, ALBUMS 
e CANZONI. Un terzo file, INDICE 
MUSICA, fa da collegamento quando 
si cerca una voce per titolo di canzone 
nella parte CERCA/CAMBIA/CAN- 
CELLA del programma. 

La routine per l’aggiunta di record 
comincia a linea 230 e continua fino 
alla linea 630 compresa. La linea 230 
invia l’operazione del programma a 
una subroutine (3730-3790), intesa a 
stabilire se sia stato reso disponibile 
qualche record tramite precedenti 
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cancellature. Se non ci sono record 
cancellati la variabile AR sarà uguale 
a “0”. Questa variabile determina più 
tardi come il file sarà infine scritto sul 
dischetto. 

Per accelerare la scrittura e la lettu¬ 
ra sul dischetto, i dati memorizzati nel 
file ALBUMS sono scritti come unica 
stringa. Questo procedimento viene 
attuato dalla linea 335 o dalla linea 
405, a seconda del valore di AR. 

ME$ = tipo del mezzo 
LE$ = lunghezza dell’album 
S$ = numero delle canzoni 
AL$ = titolo dell’album 
AR$ = nome dell’artista 
NU = numero di collegamento con 
il file CANZONI 


MID$(RE$,1,1) 

MID$(RE$,2,4) 

MID$(RE$,6,2) 

MID$(RE$,8,40) 

MID$(RE$ ,48,30) 

MID$(RE$,78, 

LEN(RE$)-77) 


Cerca/Cambia/Cancella 

L’opzione CERCA/CAMBIA/ 
CANCELLA permette di cercare una 
voce usando il nome dell’album, il no¬ 
me dell’artista o il titolo della canzone 
(vedere Fig. 2). Una volta che il record 
appropriato è stato individuato verrà 
visualizzato sullo schermo per even¬ 
tuali modifiche o cancellazioni (Figura 
3). Se si vogliono apportare mutamen¬ 
ti al record, l’esecuzione del program¬ 
ma si sposterà alla subroutine che ha 
inizio sulla linea 1240. Se, una volta 
fatte le modifiche, ci sono meno di 14 
canzoni in elenco per il file, si possono 
introdurre ulteriori titoli. 

La cancellazione di un record (1690- 
1840) è molto facile: basta introdurre 
“S” a conferma della scelta dell’opzio¬ 
ne. Quando un file è cancellato, il suo 
numero di record, e così pure il nume¬ 
ro del record CANZONI che gli è col¬ 
legato, vengono memorizzati nel re¬ 
cord #0 del text file CANZONI. 


Visualizza/elenca i record**'* 


La scelta dell’opzione tre permette 
di elencare tutti i nomi degli album su 
una stampante o sullo schermo (1850- 
2210). Discoteca System è predisposto 
per una stampante DOT MATRIX 
PRINTER inserita nello slot dell’Ap¬ 
ple usando il carattere compresso. Per 
modificare l’M.r.s. per un tipo diverso 
di stampante basta cambiare il numero 
di slot sulla linea 1870. Qualora sia 


10 REM ***§«**#*##****#** 

20 REM * APPLE DISCOTECA * 

30 REM * <0 COPYRIGHT * 

40 REM * APPLICANDO & * 

50 REM * MICROSPARC, INC.* 

60 REM ******************* 

70 REM PREDISPONE VARIABILI 

80 REM INTRODUZIONE ROUTINE PILOTA PER LA STAMPANTE 

90 TEXT ; HOME 

100 POR I = 1 T0 4: READ ME*(I): NEXT 
110 DEF FN Ad) = (MKI) * 60) ♦ SE<I) 

120 DEF FN TM<I) = INT (TT / 60) 

130 DEF FN TS(I) = TT - INT (TT / 60) * 60 

140 DIM ST*(14),MI(14) J SE(14).SQ*(14),M< 14),S< 14),RE*(311),LN(311) 

150 D* = CHR$ (13) 4 CHR* (4) 

160 0$ = D* ♦ “OPEN INDICE MUSICA.L8":R* = D* ♦ “READ INDICE MUSICA,R':W$ = D 
$ + “URITE INDICE MUSICA.R":C* = D* ♦ “CL0SE INDICE MUSICA 1 
170 01* = D* + “OPEN ALBUMS.L82":RI* = D* ♦ “READ ALBUMS,R“:U1* = D* * “URITE 
ALBUMS,R“:C1* = D* ♦ 'CLQSE ALBUMS 1 

180 02* = D* ♦ “OPEN CANZONI,L670“:R2* = D* + "READ CANZONI,R":U2* = D* ♦ "UR 
ITE CANZONI,R“:C2* = D* ♦ “CL0SE CANZONI' 

190 0NERR GOTO 4060 
200 G0SUB 3970 

210 0N YN G0SUB 240,960,1860,2230,2620,4040 

220 CLEAR : GOTO 90 

230 REM AGGIUNGE RECORD AL FILE 

240 G0SUB 3730 

250 IF AR < = 0 THEN NU = NU + 1s GOTO 270 
260 NU = AR(AR) 

270 VTAB 3 

280 PRINT "< 1=ALBUM 2=45 GIRI 3=CASS 4=B0BIM)" 

m ,0-= 1THEN 310 

300 VTAB 2 

310 IWERSE i INPUT "SISTEMA:"sHE*: N0RMAL 

320 IF ME* < M" OR ME* ) "4" THEN CALL - 998: CALL - 868: GOTO 310 
330 IF FL = 1 THEN RETURN 
340 VTAB 5 

350 INVERSE : PRINT "NOME ALBUM:": N0RMAL : PRINT "(MX. 40 CARATTERI)": INPUT 
" “ *AL* 

360 IF’ LEN (AL*) < 1 OR LEN (AL*) > 40 THEN CALL - 998: CALL - 998: CALL 

- 998: CALL - 958: GOTO 350 

370 IF LEN (AL*) < 40 THEN 60SUB 3810 

380 IF FL = 1 THEN RETURN 
390 VTAB 10 

400 IWERSE : PRINT "ARTISTA:": NORMAL : PRINT "<MX. 30 CARATTERI)" 

410 IF FL = 1 THEN VTAB 21: GOTO 430 
420 VTAB 12 
430 INPUT "";AR* 

440 IF LEN (AR*) < 1 OR LEN (AR*) > 30 THEN CALL - 998: CALL - 958: GOTO 

400 

450 IF LEN (AR*) < 30 THEN GOSUB 3830 
460 IF FL = 1 THEN RETURN 

470 HOME : PRINT "ALBUM :"; LEFT* (AL*,32): PRINT "ARTISTA:";AR*: PRINT "SIS 
TEMA:":ME*( VAL (ME*)) 

480 PRINT -": P0KE 34,4 

490 VTA8 12: INPUT "NUMERO DELLE CMZ0NI <MX. 14) :";S*:S = VAL (S*) 

500 IF S < 1 OR S ) 14 THEN CALL - 998: CALL - 958: GOTO 490 
510 HOME : VTAB 6 
520 F0R I = 1 TO S 

530 PRINT “TITOLO DELLA CMZQNE #";I|" (MX 40 CARATTERI)" 

540 INPUT “":ST*(I) 

550 IF LEN (ST*(I)> > 40 OR ST*(I) = •" THEN HOME : GOTO 530 
560 INPUT “DURATA BRANO (NI,SS) :";MI<I).SE(1) 

570 IF SE(I) ) 60 OR SE(I) < 0 THEN CALL - 998: CALL - - 958: GOTO 560 
580 LE = LE * FN Ad) • 

590 IF I / 4 = INT (I / 4) THEN HOME 
600 PRINT : NEXT 
610 LE* = STR* (LE) 

620 IF LEN (LE*) < 4 THEN GOSUB 3850 

630 S* = STR* (S): IF LEN (S*) ( 2 THEN S* = "0" * S* 

640 REM SCRIVE RECORD SUL DISCHETTO 
650 IF AR ) =1 THEN 790 

660 PRINT 0*: PRINT U*;0: PRINT NU: PRINT C*: PRINT 0*: PRINT U*;NU: PRINT N 
U: PRINT C* 

670 RE* = ME* + LE* ♦ S* ♦ AL* ♦ AR* ♦ STR* (NU) 

680 PRINT 01*: PRINT U1*;NU: PRINT RE*: PRINT Cl* 

690 PRINT 02*: PRINT U2*|NU: PRINT AR*: PRINT S 
700 F0R I = 1 T0 S 

710 PRINT ST*(I): PRINT MId): PRINT SEd) 

720 NEXT 
730 PRINT C2* 

740 IF FL = 1 THEN FL = 0: RETURN 

750 TEXT : HOME : VTAB 12: PRINT "VUOI INSERIRE UN ALTRO ALBUM ? (S/N) * ; s 6ET 


■ 
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YN*: PRINT 

760 IF YN* = ‘S 8 THEN FOR I = 1 TO SsMKI) = 0:SE<I) = 0: NEXT :LE = 0: HOME 
: GOTO 240 

770 IF EF = 1 THEN GOTO 220 
780 RETURN 

790 REM SCRIVE IL RECORD SUL DISCHETTO SOSTITUENDO UN RECORD CANCELLATO 
800 PRINT 0$: PRINT U*:AR(AR +1); PRINT ARCAR)! PRINT C* 

810 RE* = ME* 4 LE* ♦ S* + AL* ♦ AR* ♦ STR* (ARCAR + D) 

820 PRINT 01*: PRINT U1*;NU: PRINT RE*: PRINT Cl* 

830 PRINT 02*: PRINT U2*;AR(AR ♦ 1): PRINT AR*: PRINT S 
840 FOR I = 1 TO S 

850 PRINT ST*CI): PRINT MICI): PRINT SECI) 

860 NEXT 

870 FOR I - 1 TO (AR * 2) - 2 
880 ARCI) = ARCI ♦ 2) 

890 NEXT 
900 AR = AR - 1 

910 PRINT 02*: PRINT W2*;0: PRINT AR: FOR I « 1 TO (AR * 2) 

920 PRINT ARCI) 

930 NEXT : PRINT C2* 

940 IF FL = 1 THEN FL = 0: RETURN 
950 GOTO 750 

960 REM CERCA/CAMBIA/CANCELLA 

970 G0SU8 3240 

980 FOR I = 1 TO LEN (AL*) 

990 IF I > 25 AND MID* (AL*,Li) = ' ' THEN B* = MID* (AL*,1,1 - 1):B1* = 

MID* (AL*,I ♦ 1, LEN (AL*) - I): GOTO 1010 
1000 NEXT 

1010 REM VISUALIZZAZIONE RECORD 
1020 TEXT : HOME 

1030 INVERSE : PRINT 'TITOLO NORMAL : PRINT 1 'B* 

1040 PRINT TABC 9)B1* 

1050 INVERSE : PRINT 'ARTISTA:':: NORMAL : PRINT ' 'AR* 

1060 VTAB PEEK (37) ♦ 2: IWERSE : PRINT 'SISTEM:';: NORMAL : PRINT ■ 'ME* 
(VAL (ME*))} 

1070 HTAB 18: INVERSE : PRINT "DURATA :':: NORMAL 

1080 PRINT ' 8 FN TM(FI);' MIN."}:X* = STR* ( FN TS(FD): IF LEN (X*) < 2 THEN 
X* = '0' ♦ X* 

1090 PRINT X*;' SEC.': VTAB 6 

1100 PRINT ■ ■. 

1110 FOR SO = 1 TO S: PRINT LEFT* <ST*(S0).34):: IF LEN ( STR* (MI(SO))) < 

2 THEN HTAB 37: PRINT MI(SO)GOTO 1130 
1120 HTAB 36: PRINT MI(SO):':': 

1130 X* = STR* <SE(SO)): IF LEN (X*) < 2 THEN X* = '0' + X* 

1140 PRINT X*; 

1150 NEXT 

1160 VTAB 21: PRINT " ==«=====-=”= ' ; 

1170 VTAB 21: PRINT 

1180 VTAB 22: PRINT 'MODIFICA': PRINT 'COANCELLA': PRINT '<T>ORM AL MENU 

■ , 

1190 X’= PEEK ( - 16384) 

1200 IF X = 205 THEN 1240 

1210 IF X = 195 THEN 1690 

1220 IF X = 212 THEN POKE - 16368,0: RETURN 

1230 GOTO 1190 

1240 REM CMBIA I DATI NEL FILE 

1250 POKE - 16368.0 

1260 HOME : INVERSE : PRINT ' CAMBIO NORMAL 

: POKE 34.1 

1270 PRINT '(1) ' LER* (AL*,35): PRINT '(2) B :AR*: PRINT '(3) ';ME*( VAL (M 
E*)): INVERSE : PRINT " SQN6S NORMAL 

1280 FOR J = 1 TO S: PRINT '(';J ♦ 3;") '; LER* (ST*(J),34): NEXT : VTAB 20 
: IWJERSE : PRINT ' NORMAL 

1290 IF AD = 1 THEN 1360 

1300 VTAB 21: PRINT 'QUALE NUMERO VUOI CAMBIARE 9"; INVERSE : PRINT '<0) PER 

FINIRE': NORMAL : VTAB 21: HTAB 29: INPUT ";CH*:CH = VAL <CH*> 

1310 IF CH < 0 OR CH ) S ♦ 3 THEN 1300 

1320 VTAB 21: CALL -958 

1330 IF CH = 0 THEN 1360 

1340 FL = 1 : ON CH GOTO 1520,1560,1600 

1350 GOTO 1630 

1360 VTAB 21: CALL - 958: IF S = 14 THEN 1390 

1370 PRINT 'VUOI INSERIRE UN'ALTRA CANZONE 9';: GR YN*: PRINT : IF YN* = ' 

N' THEN 1390 

1380 VTAB 21:FL = 1: CALL - 958:S = S ♦ 1:CH = S:AD = 1 : VTAB 21 : PRINT 'TI 
TOLO CANZONE #';CH;' (MX.40 CARATTERI)': GOTO 1640 
1390 IF FL = 0 THEN RETURN 
1400 POKE 34,23: HOME 

1410 LE = 0: FOR I = 1 TO S:LE = LE ♦ FN Ad): NEXT ;: 

1420 LE* = STR* (LE): IF LEN (LE*) < 4 THEN GOSUB 3850 
1430 S* = STR* (S): IF LEN (S*) < 2 THEN S* = '0' ♦ S* 

1440 RE* = ME* ♦ LE* ♦ S* ♦ AL* ♦ AR* ♦ STR* (IN) 



necessario aggiungere una routiné pi¬ 
lota, essa deve essere introdotta a li¬ 
nea 40 in luogo dell’istruzione REM, e 
si deve mettere sulla linea 1870 in 
CALL appropriato. 

Per la visualizzazione si utilizza un 
contatore (linea 2010) in congiunzione 
con l’equazione a linea 2140 per limi¬ 
tare a tre il numero degli album visua¬ 
lizzati. Dopo ciascun segmento viene 
data l’opzione di continuare l’elenca¬ 
zione o di tornare al menù principale. 


L’ordinamento 

L’opzione quattro del programma 
Discoteca è la routine di ordinamento 
e si trova da linea 2220 a linea 2610 
compresa. Permette di ordinare per 
album o per autore, e gli opportuni 
puntatori di ordinamento sono posti 
sulla linea 2290 o sulla linea 2610. 

La routine di ordinamento vera e 
propria è un ordinamento stringa 
Shell-Metzner modificato, che può 
mettere in ordine ÌOO titoli in poco più 
di un minuto. 



Figura 1. Il menù principale. 

È questa un’area del programma 
che forse si vorrà modificare, introdu¬ 
cendo un algoritmo di ordinamento 
proprio, o scelto fra quelli disponibili 
in commercio. Una seconda modifica 
possibile è quella di far posto a un 
ordinamento primario per mezzo di 
registrazione con un ordinamento se¬ 
condario per nome di artista o di 
album. 
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Applesoft ForThe Ile 

di Brian D. Blackwood e George H. Blackwood. 
Scritto per l’Apple//e, presenta in 31 lezioni 
tutte le tecniche di programmazione, con 
esempi pratici, e programmi in 80 colonne. 

Sams. Lire 39.900. 

Abbonati ad Applicando 31.900. 



APPLE II 
APPLICATIONS 


MARVIN L DE JONG 



Polishing Your Apple 

di Herbert M. Honig, Vol.1 e Vol.2. Una guida 
pratica e maneggevole per archiviare su disco 
e suggerimenti per menù d’aspetto 
professionale, error-trapping, e routine. 

Sams. Lire 9.900 ciascun volume. 
Abbonati ad Applicando 7.900. 


Apple II Applications 

di Marvin L. De Jong. Una serie di tecniche di 
interfacciamento che consentono di utilizzare 
un Apple//come sistema di sviluppo o di 
controllo, o rilevatore di misure. 

Sams. Lire 31.900. 

Abbonati ad Applicando 25.550. 


SAMS 


» 

1 

! 

Apple II For Kìds 

From 8 to 80 

Miti** f **** Mo “ ol ° 



Apple// For Kids From 8 to 80 

di Michael Zabinski e Frank Mazzola. Un libro 
ricco di esercizi pratici, scritto con le tecniche 
con cui si insegna nei computer-camp 
americani, di cui Zabinski è stato il fondatore. 

Sams. Lire 21.900. 

Abbonati ad Applicando 17.520. 



Apple Graphics Activities Handbook 

di Harold J. Bailey e J. Edward Kerlin. Tutte le 
tecniche di grafica bi e tridimensionale per 
Apple II e Apple//e. Con esempi ed esercizi. 

Prentice Hall. Lire 23.900. 

Abbonati ad Applicando 19.120. 



The VisiCalc Book Apple Edition 

di Donald H. Beil. Una guida pratica su come 
costruire un modello, inserire i dati, 
sperimentare il what if?, costruire proiezioni di 
profitti/perdite, stime costo/prezzo, ecc. 

Reston. Lire 38.900. 

Abbonati ad Applicando 31.120. 

















The Academic Apple 

di Richard Mowe. Una guida per genitori e 
insegnanti, per aiutare i bambini dai 5 anni in 
su ad imparare meglio grazie ad un Apple//. 
Un’ottima introduzione all’uso del computer. 

Reston. Lire 18.000. 

Abbonati ad Applicando 14.400. 


Disk, Files, And Printers For The Apple// 

di Brian D. Blackwood e George H. Blackwood. 
Per imparare a reaiizzare text files e hard 
copies su carta. Tutto sui comandi per disk- 
drives e stampanti, con esempi pratici. 

Sams. Lire 31.900. 

Abbonati ad Applicando 25.520. 


Using Apple Business Computers 

di Kenniston W.Lord, Jr., CDP. Volete 
ammortizzare rapidamente l’investimento per il 
vostro Apple///? Questo libro spiega come 
usare con efficacia le procedure che rendono 
di più. 

VanNostrand. Lire 40.000. 

Abbonati ad Applicando 32.000. 



Better Basic For The Apple 

di J.N.P. Hume e R.C. Holt. Tutto ciò che 
occorre per utilizzare con efficacia un Apple in 
ufficio o a casa è compreso in questo libro, 
ricco di programmi strutturati, facili da 
copiare. 

Reston. Lire 41.500. 

Abbonati ad Applicando 33.200. 


BASIC Trkks 
For The Apple 



Basic tricks For The Apple 

di Alien Wyatt. Ecco i trucchi che permettono 
ancora più efficienza. 35 routines per 
l’allineamento dei numeri, la gestione delle 
date e degli orari, la creazione di menù 
professionali, ecc. 

Sams. Lire 17.900. 

Abbonati ad Applicando 14.320. 



PLESOFT 

NGUAGE 


Stcond Edilio n 


ov tirnAN 0. OtACKWOOO 
A OFOKrtf. H OUACKWX» 


Applesoft Language 

di Brian D. Blackwood e George H. Blackwood. 
Sotto forma di lezioni (sono 29), questo 
manuale insegna il problem solving e il 
flowcharting, oltre ai comandi per la grafica e 
per il colore. 

Sams. Lire 27.900. 

Abbonati ad Applicando 22.320. 


Inviatemi, senza aggravio di spese postali, 
i seguenti libri: 

□ Applesoft For The Ile 

□ Polishing Your Apple 

□ Apple II Applications 

□ The Academic Apple 

□ Disk, Files and Printers 

□ Using Apple Business Comp. 

□ Apple// For Kids From 8 to 80 

□ Apple Graphics Activities 

□ TheVisiCalcBook 

□ Better Basic For The Apple 

□ Basic tricks For The Apple 

□ Applesoft Language 


Cognome e nome. 

Via...N. 

Cap.Città.Provincia. 

□ Allego assegno non trasferibile di L.intestato a Editronica Srl. 

□ Allego ricevuta di versamento di L.sul CC postale N. 19740208 intestato a 

Editronica Srl, Corso Monforte 39,20122 Milano. 

□ Pago fin d’ora con la mia carta di credito Bankamericard N. 

scadenza . 

Data.Firma. 

□ Desidero fattura. Il mio C.Fisc./P.lvaè:. 

□ Desidero ricevere il catalogo completo dei libri disponibili. 

Ritagliare e spedire a: Editronica Srl, Corso Monforte 39,20122 Milano. 































































IN VIA NIZZA 48-50-52 
TEL. 06/875638-863839 

IL PRIMO 
COMPUTER SHOP 
DI ROMA 

600 MQ DI PROFESSIONALITÀ 


oooo 

oo## 

009 * 

OOOO 

Computer 
Center sh 


RIVENDITORE 
AUTORIZZATO DI 

oppiane III 

"<D 

DISTRIBUZIONE PER L’ITALIA 



UNA MELA DI 600 MQ. 
DI PROFESSIONALITÀ 


CENTRO AUTORIZZATO DI ASSISTENZA 
TECNICA 


LEASING RATEAZIONI E CREDITO 
PERSONALE 


CORSI DI INTRODUZIONE ALL’EDP E BASIC 


VASTISSIMA LIBRERIA DI SOFTWARE 
ED APPLICAZIONI 


QUALIFICATO TEAM DI ANALISTI 
PROGRAMMATORI PER LA 
RISOLUZIONE DEI VOSTRJ PROBLEMI 


SPECIALIZZATI IN 
APPLICAZIONI MUSICALI 
COMPUTERIZZATE 




1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 


PRINT 01$: PRINT U1$;AL: PRINT RE$: PRINT Cl$ 

PRINT 02$: PRINT U2$;LN: PRINT AR$: PRINT S 
FOR I = 1 T0 S 

PRINT ST$(I): PRINT MI(I): PRINT SE(I) 

NEXT : PRINT C2$ 

TEXT : HOME : VTAB 12: PRINT "VUOI CAMBIARE UN'ALTRO RECORO ? (S/N) 

GET YN$: PRINT : IF YN$ = "S" THEN FL = 0: HOME : GOTO 960 
RETURN i 

VTAB 21: IWERSE : PRINT "NOME ALBUM N0RML : PRINT a (MAX. 40 CARAT 
TERD": INPUT "";AL$ 

IF LEN <AL$) > 40 THEN CALL - 998: CALL - 998: CALL - 958: GOTO 15 

20 

IF LEN (AL$) < 40 THEN GOSUB 3810 
HOME : GOTO 1270 

VTAB 21: INVERSE : PRINT "ARTISTA:": NQRML : PRINT "<MX. 30 CARATTERI 
)": VTAB 21: HTAB 9: INPUT "':AR$ 

IF LEN (AR$) > 30 THEN CALL - 998: CALL - 998: CALL - 958: GOTO 15 


IF LEN (ARS) < 30 THEN GOSUB 3830 
HOME : GOTO 1620 

VTAB 22: PRINT "(1=ALBUM 2=45 GIRI *=CASS. 
: INPUT "QUALE :";ME$: N0RMAL 
IF ME$ < "1" OR ME$ > "4" THEN 1600 
HOME : GOTO 1270 

VTAB 21 :CH = CH - 3: PRINT "TITOLO CMZQNE 


4=B0BINE)": VTAB 21: IWERSE 


#’;CH;" (MAX. 40 CARATTERI) 

INPUT "":ST$(CH) 

IF LEN ^ST$(CH)) > 40 OR ST$(CH) = " THEN HOME : GOTO 1630 
INPUT "DURATA CWZ0NE (MM,SS) :";MI(CH),SE(CH) 

IF SE(CH) ) 60 OR SE(CH) < 0 THEN CALL - 998: CALL - 958: GOTO 1660 

HOME : GOTO 1270 

REM CANCELLA UN RECORD 

POKE - 16368.0 

POKE 34.21 : HOME 

PRINT "SEI SICURO DI VOLER CANCELLARE QUESTO RECORD (S/N) ?"j: GET YN 


V 


1730 IF YN$ ( ) "S" THEN 220 

1740 IF AL < =0 THEN PRINT 0$: PRINT R$:FI: INPUT AL: PRINT C$ 

? 1750 PRINT 02$: PRINT R2$;0: INPUT AR: IF AR = 0 THEN 1770 
1760 FOR I = 1 TO AR * 2: INPUT AR(I): NEXT 
1770 AR = AR + 1:AR((AR * 2) - 1) = AL:AR(AR » 2) = FI 

1800 PRINT U2$;FI: PRINT 0: PRINT C2$ 

1810 PRINT 01$: PRINT U1$;AL: PRINT 0: PRINT Cl$ 

1820 TEXT : HOME : VTAB 9: PRINT AL$;"E / STATO CANCELLATO." 

1830 VTAB 13: PRINT "VUOI CANCELLARE UN ALTRO RECORD (S/N)?";: GET YN$: PRINT 
: IF YN$ = "N" THEN 220 
1840 AR = 0:AL = OsFI = 0: HOME : GOTO 960 
1850 REM ROUTINE DI STMPA 

1860 VTAB 12: PRINT "VUOI SU STMPMTE <S/N) ?";: GET YN$: PRINT : IF YN$ = 

"N" THEN 1970 

1870 Ad) = 0:A<2) = 31:A(3) = 72sA(4) = 84:PR = 1: PRINT CHR$ (4);"PR#1": PRINT 
CHR$ (27) ♦ "Q": PRINT CHR$ (9):"132N‘ 

1880 PRINT 0$: PRINT R$;0: INPUT NU: PRINT C$ 

1890 PRINT 01$: PRINT "ARTISTA TITOLO 

SISTEMA TEMPO ": FOR I = 1 TO 90: PRINT NEXT 
: FOR I = 1 TO NU: PRINT R1$;I 
1900 INPUT RE$: IF RE$ = "0" THEN 1950 
1910 GOSUB 2210 

1920 POKE 36,Ad): PRINT AR$ : : POKE 36.A(2): PRINT AL$; : POKE 36.A<3): PRINT 
ME$( VAL (ME$));: POKE 36,A<4): PRINT FN TM(I)‘:';:X$ = STR$ ( FN TSd 
)) 

1930 IF LEN (X$) < 2 THEN X$ = "0" ♦ X$ 

1940 PRINT X$ 

1950 NEXT : PRINT Cl$: PRINT CHR$ <4);"PR#Q" 

1960 HOME : GOTO 220 
1970 REM STMPA SUL VIDEO 
1980 PRINT 0$: PRINT R$:0: INPUT NU: PRINT C$ 

1990 PRINT 01$: HOME : FOR I = 1 TO NU: PRINT R1$;I 
2000 INPUT RE$: IF RE$ = "0" THEN 2160 
2010 CO = CO ♦ 1 
2020 GOSUB 2210 

2030 PRINT "RECORD #";: NORMAL : PRINT I 
2040 FOR J = 1 TO LEN <AL$) 

2050 IF J > 25 AND MID$ (AL$.J,1) = " " THEN B$ = MID$ (AL$,1,J - 1):B1$ = 
MID$ (AL$,J ♦ 1, LEN (AL$) - J):J = 40: GOTO 2070 
2060 NEXT 

2070 IWERSE : PRINT "TITOLO:";: NORMAL : PRINT " "B$ 

2080 PRINT TAB( 9)B1$ 

2090 IWERSE : PRINT "ARTISTA:":: NORMAL : PRINT • "AR$ 

2100 VTAB PEEK (37) ♦ 2: IWERSE : PRINT "SISTEM:";: NORMAL : PRINT " "ME$ 

( VAL (ME$)); 


\ 


64 














































\ 


2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 


2200 

2210 

2220 

2230 


2240 


2380 

* 2400 
2410 
2420 
2430 

^ 2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2^60 

2670 

2680 

2690 

2700 

2710 

2720 

2730 


HTA8 18: IMMERSE : PR1NT ■DURATA NORMAL 

PRINT ' 8 FN TH(I);" MIN.";:X$ = STR$ ( FN TS(I)): 1F LEN <X$) < 2 THEN 
X$ = '0' ♦ X$ 

PRINT X$: 8 SEC 8 

IF CO / 3 = INT (CO / 3) THEN 2180 

NEXT 

NEXT 

PRINT Cl$: VTAB 23: PRINT 8 UN TASTO QUALSIASI PER CONTINUARE';: SET YN$ 

: PRINT : GOTO 220 
PRINT Cl$: IF I = NU THEN 2170 

VTAB 23: PRINT 'BATTI (SPAZIO) PER CONTINUARE. 8 : PRINT 8 <R> PER TORNARE 
AL MENU. 8 ;: GET YN$: PRINT : IF YN$ < ) 'R 8 THEN PRINT 01$: PRINT Rl$ 

;I: HOME : GOTO 2150 
GOTTO 220. 

ME$ = LEFT$ (RE$.1):LE$ = MID$ (RE$,2.4):S= VAL ( M1D$ (RE$ 1 6,2)):AL 
$ = MID$ (RES-8.40) :AW = MID$ <RE$,48,30):TT = VAL (LE$): RETURN 
REM ROUTINE DI RICERCA SHELL/METZNER 

PRINT 02$: PRINT R2$;0: INPUT DR: PRINT C2$: PRINT 0$: PRINT R$;0: INPUT 
XNi PRINT C$: IF XN - DR < = 1 THEN TEXT : HOME : VTAB 12: PRINT "NON 
CI SONO ABBASTANZA RECORD!': POR I = 1 TO 3000: NEXT : RETURN 
HOME : VTAB 10: PRINT 'RICERCA PER :': VTAB 12: KTAB 3: PRINT CHR$ (91 
);M3 ARTISTA': VTAB 14: KTAB 3: PRINT CHR$ (91);'23 TITOLO': VTAB 10: KTAB 

9 

I = 0 

GET YN$: PRINT : IF YN$ = CHR$ (13) THEN 220 
YN - VAL <YN$): IF YN < 1 OR YN > 2 TH04 2240 
HOME 

IF YN = 1 THEN LO « 48:HI a 30: GOTO 2310 
LO = 8:HI = 40 

VTAB 12: PRINT 'LETTURA FILES': POKE 34.13 
PRINT 01$: PRINfT 0$: FOR CO * 1 TO XN: PRINT Rl$;CO 
1 = 1*1 

INPUT RE$(CO)j IF RE$(CO) » '0 1 THEN 1 = 1-1: GOTO 2360 
iRE$<I) « RE$(CO): PRINT R$:CO: INPUT LN(I) 

NEXT : PRINT 01$: PRINT C$ 

N = I: HONE : VTAB 12: PRINT 'ORDINAMENTO FILES' 

GOSUB 2538 \ 

HOME : VTAB 22: PRINT "SCRITTURA FILES ORDINATI": POKE 34,13 
PRINT 01$: FOR I = 1 T€ N: PRINT W1$;I: PRINT RE$<I): NEXT 
IF N = XN THEN PRINT Cl$,j GOTO 2430 
FOR I = N ♦ 1 TO XN: PRIMI W1$:I: PRINT 0: NEXT : PRINT Cl$ 

PRINT 0$: FOR 1 = 1 TO XN: PRINT U$; VAL ( RI6WT$ (RE$(I), LEN (RE$(D) 

- 77)): PRINT I: NEXT : PRINT C$ 

PRINT 02$: PRINT R2$;0: INPUT AR: IF AR = 0 THEN PRINT : PRINT C2$: GOTO 
2520 

FOR I = 1 TO AR * 2 
INPUT AR(I) 

NEXT : PRINT C2$ 

FOR I = 1 TO AR * 2 

IF I / 2 < > INT (I / 2) THEN AR(I) = N * 1 :N = N * 1 
NEXT 

PRINT 02$: PRINT U2$|8: PRINT AR: FOR I = 1 TO AR * 2: PRINT AR<I>: NEXT 
: PRINT C2$ 

RETURN 
K1 = N * 1 

K1 = INT (K1 / 2): IF K1 = 0 THEN 2610 
K2 = N - K1:J = 1 
I = J 

K3 = I ♦ Kl: IF MID$ (RE$(I).LO.HI) < MID$ <RE$(K3),LQ.H1) THEN 2590 
K$ = RE$(I):RE$(I) * RE$<K3):ftE$(K3) = K$:K4 = LN<I):LN<1> = LN(K3):LN(K 
3) = K4:1 = I - Kl: IF I > 1 THEN 2570 
J« J ♦ 1: IF J ) K2 THEN 2540 
GOTO 2560 
RETURN 

REM CALCOLTORE DI RE61STRAZIONE 

A$ = 'CALCOLATORE DI REGISTRAZIONE": IWERSE : GOSUB 4210: NORMAL : POKE 
34,1 

VTAB 12: INPUT 'DURATA DEL NASTRO (UN LATO) :';NO$:NO = VAL (NQ$) 

IF NO < 1 OR NO > 60 THEN PRINT "ENTRY ERROR': FOR I = 1 TO 3000: NEXT 
: HOME : GOTO 2640 

NI = NO * 60: HOME : VlTAB 1: PRINT 'LEN.='NO 
S = S ♦ 1 

VTAB 21: INPUT 'TITOLO DELLA CMZQNE : ';ST$(S): IF LEN <ST$(S)) > 40 OR 
LEN (ST$(S)) < 1 THEN HONE : GOTO 2680 

PRINT : INPUT 'DURATA (MIN,SEC) :';MI<S),SE(S): IF SE(S) > 60 OR SE(S) < 

0 THEN HOME : GOTO 2690 
N3 = NI 

N2 = FN A(S):N1 = NI - (N2 ♦ 5): REM AGGIUNTA DI 5 SECONDI DI SJLENZ 

10 FRA LE CANZONI 

IF NI < 0 THEN VTA8 21: HOME : PRINT 'NON RIMANE ABBASTANZA TEMPO': FOR 
I = 1 TO 3000: NEXT :S = S - 1:N1 = N3: GOTO 2790 
VTAB S + 2: PRINT S;") ';: PRINT LEFT$ (ST$<S),30); : PRINT TAB< 35)MI 



Calcolatore 
di registrazione 

L’opzione conclusiva è il calcolatore 
di registrazione, destinato alle regi¬ 
strazioni domestiche, di canzoni che 
sembrano sempre più lunghe della du¬ 
rata del nastro. Dopo che si è introdot¬ 
ta la durata del nastro che si sta adope¬ 
rando verrà chiesto qual è la prima 
canzone da registrare e quanto è lun¬ 
ga. Verrà poi visualizzato il titolo della 
canzone assieme alla sua durata, e ver¬ 
rà controllato il tempo di permanenza 



Figura 2 e 3. Con l’opzione cerca 
cambia cancella si possono inserire, 
modificare, togliere le caratteristiche 
di un album o di un singolo brano. 

sul nastro. A mano a mano che viene 
introdotto ciascun titolo verranno de¬ 
dotti dal tempo restante la lunghezza 
della canzone e un “fattore di riempi¬ 
mento” per il silenzio fra canzone e 
canzone. Il programma non permette¬ 
rà che si introduca una canzone troppo 
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le COSMIC 
ippkz COSM 

Qgcippkz CO! 
jcippkz a 
^cippkz 
f^appkz 

/IIC pappié 
SMIC *-P 
iOSMIC « 
COSMIC 
COSMIC 


COSMIC 


COMPUTER SHOP 

A ROMA - Via G. Lanza 101-103-105 Tel. 738224 


ic Macintosh 
ippkz MacintosH 

' [appiè Macinti 

jappkz Mac 

fgcippkz M 
ffcippkz 

4IC pappié 
SMIC #M> 
/OSMIC « 
COSMIC 
COSMIC 


I 


■■■ 


<S):":*;:XÌ = STRi (SE(S))i IF LEN (XI) < 2 THEN Xi = 5 0“ + Xi 
2740 PRINT Xi: POKE 34.S + 3: HOME 

2750 MI = INT (NI / 60):SE = NI - INT (NI / 60) * 60: VTAB 20: INVERSE : PRINT 
-TEMPO RESTANTE: = STRi (SE): IF LEN <XÌ> < 2 THEN Xi = * 

o- ♦ Xi 

2760 PRINT Xi: POKE 34,20: HOME : N0RMAL 
2770 IF MI = 0 AND SE = 0 THEN 2840 
2780 IF S = 14 THEN 2840 

2790 PRINT : PRINT '(AGGIUNGI UN'ALTRA &WZ0NE": PRINT *<C>ERCA UNA CMZ0NE 
": PRINT "<E)SCI" 

2800 X = PEEK ( - 16384): IF X = 193 THEN POKE - 16368,0: HOME : GOTO 2670 

281 % 0 IF X = 195 THEN POKE - 16368,0: HOME : GOTO 2950 

2820 IF X * 197 THEN POKE - 16368,0: GOTO 2840 

2830 GOTO 2800 

2840 HOME : VTAB 22: PRINT "VUOI QUESTA CMZ0NE PERMANENTE (S/N) GET YN 
i: PRINT 

2850 HOME : IF YN* = "N" TH0< 2930 

2860 REM TRASFORMA IL FILE IN UN RECORD PERMANENTE 

2870 GOSUB 3730sFL = 1: HOME : VTAB 21: GOSUB 280 

2880 HOME : GOSUB 350: HOME : GOSUB 400 

2890 IF AR < = 0 THEN NU = NU ♦ 1: GOTO 2910 

2900 NU = AR(AR) 

2910 FOR I = 1 TO S:LE = LE ♦ FN Ad): NEXT 
2920 GOSUB 610 

2930 TEXT : HOME : VTAB 12: PRINT "VUOI FORMATTARE UN ALTRO NASTRO (S/N)?"?: 

GET YNi: PRINT : IF YN* = "N" THEN RETURN 
2940 LE = 0:S = 0: HOME : GOTO 2620 

2950 REM CERCA LA CANZONE - FL=1 PER IL TITOLO - FL=2 PER IL TEMPO 
2960 HOME : VTAB 21: PRINT "PARAMETRI DI RICERCA:": PRINT TAB( 8)"1) TITOLO 
DELLA CANZONE": PRINT TAB( 8)"2) DURATA DELLA CMZ0NE" 

2970 VTAB 21: HTAB 11: GET YNi: PRINT : HOME :YN = VAL (YNi): IF YN < 1 OR 
YN > 2 THEN 2960 

2980 IF YN = 1 THEN FL = 1 : VTAB 21: INPUT "TITOLO :";SÌ: IF LEN (Si) ) 40 OR 
LEN (Si) < 1 THEN HOME : GOTO 2980 
2990 IF FL = 1 THEN 3020 
3000 FL = 2: INPUT "TIME (MIN,SEC) :";M.SS 
3010 IF M < 1 OR M ) 60 THEN HOME : GOTO 3000 

3020 HOME : VTAB 20: HTAB 24: FLASH : PRINT "STO CERCANDO": NORMAL 

^ 3030 PRINT Oi: PRINT Ri:0: INPUT NU: PRINT Ci 

3040 FOR I = 1 T0 NU: PRINT 02i: PRINT R2i;l 
3050 INPUT ARi: IF ARi = "0" THEN 3140 
3060 INPUT T 
3070 FOR J = 1 TO T 
3080 INPUT SOÌ(J) f M(J),S(J) 

3090 NEXT 

3100 FOR J = 1 T0 T 

3110 IF FL = 1 THEN IF Si = LEFTi (SOÌ(J). LEN (Si)) THEN 3180 

3120 IF FL = 2 THEN IF M = M(J) AND SS = S(J) THEN 3180 

3130 NEXT 

3140 NEXT : PRINT C2i: HOME 
3150 VTAB 20: KTAB 30: PRINT " 

3160 Jpj C ^ 0 = 3 g 0 s 0 ^ R èalo"f cente f N0N H0 TR0WT0 NULLA ’ 5 F0R1 

3170 VTAB 22: PRÌNT "SONO TUTTE QUI. NON HO TROVATO ALTRO.": FOR I = 1 TO 30 
00: NEXT :FL = 0: GOTO 2790 
3180 VTAB 20: HTAB 30: PRINT " ": HOME 

3190 PRINT C2i 

3200 PRINT "TITOLO MIDi (S0Ì(J),1,31): PRINT "ARTISTA:":ARÌ 

3210 PRINT "LENGTH :"?M(J);:XÌ = STRi (S(J)): IF LEN (Xi) < 2 THEN Xi = 

"0" ♦ Xi 

3220 PRINT Xi: PRINT "E' LA CANZONE CHE CERCAVI (S/N) ?":: GET YNi: PRINT : IF 
YNi = "S" THEN HOME :S = S ♦ 1:STÌ(S) = S0Ì(J):MI(S) = M(J):SE(S) = S(J 
):FL = 0: GOTO 2700 

3230 HOME : VTAB 20: HTAB 24: FLASH : PRINT "STO CERCANDO": NORMAL : PRINT 0 
2i: PRINT R2i;I: GOTO 3130 

3240 VTAB 8: PRINT -PARMETRI DI RICERCA": PRINT : PRINT "113 NOME ALBUM": PRINT 
"[23 NOME ARTISTA": PRINT "E33 TITOLO CMZGNE* 

3250 VTAB 8: HTAB 12: GET YNÌ:YN = VAL (YNi): IF YN < 1 OR YN > 3 THEN 3250 

3260 IF YN = 3 THBI 3450 

3270 IF YN = 1 THEN SW = 8:SU = 8:SL = 40: GOTO 3290 
3280 SU = 48:SL = 30 

3290 HOME : VTAB 12: PRINT "INSERISCI LA CHIAVE DI RICERCA:";: INPUT "";SÌ: HOME 

3300 IF LEN (Si) ) SL THEN 3290 
\ 3310 VTAB 12: PRINT "STO CERCMDO...": POKE 34,13 

^ 3320 PRINT Oi: PRINT Ri;0: INPUT NU: PRINT Ci 
3330 PRINT Oli 
3340 FOR I = 1 TO NU 
3350 PRINT Rli;l 

3360 INPUT REi: IF REi = "0" THEN 3380 

3370 IF MIDi (REi. SU. LEN (Si)) = Si THEN GOSUB 3880 


66 

















3380 NEXT : PRINT CU 

3390 TEXT : HOME ; VTAB 12: PRINT "SPIACENTE. NON HO TROVATO NESSUN TITOLO C 
ON QUEL NOME" 

3400 PRINT : PRINT “BATTI <ESC> PER CONTINUARE, <RETURN> PER TORNARE AL MENU 

3410 X = PEEK ( - 16384) 

3420 IF X = 141 THEN POKE - 16368,0: GOTO 220 
3430 IF X = 155 THEN POKE - 16368,0: HOME : GOTO 960 
3440 GOTO 3410 

3450 REM CERCA LA CMZONE - PARTE DELLA ROUTINE CERCA/CAMBIA/CANCELLA 
3460 HOME : VTAB 12: INPUT "TITOLO DELLA CALZONE: ";S$: IF S$ = "" THEN POP 
: GOTO 220 

3470 IF LEN <S$) > 40 THEN 3460 

3480 HOME : VTAB 12: PRINT "STO CERCWDO...": POKE 34,13 

3490 PRINT 0$: PRINT R$:0: INPUT NU: PRINT C$ 

3500 FOR I = 1 TO NU: PftlNT 02$: PRINT R2$;I 

3510 INPUT ARI: IF AR$ = "0" THBI 3590 

3520 INPUT S 

3530 FOR J = 1 TO S 

3540 INPUT ST$<J) f NI(J),SE(J) 

3550 NEXT 

3560 FOR J = 1 TO S: IF LEN <S$) ) LEN <ST$(J)) THEN 3580 
3570 IF S$ 3 LEFT$ <ST$<J>, IW <S$)) THEN 3610 
3580 NEXT 

3590 NEXT : PRINT C2$ 

3600 GOTO 3390: REM NESSUNA CORRISPONDENZA 

3610 TEXT : HOME : VTAB 10: INVERSE : PRINT "CANZONE NORNAL : PRINT " " 
ST$(J): PRINT 

3620 INVERSE : PRINT "ARTISTA: 1 ;: NORMAL : PRINT " - ;AR$: PRINT 
3630 IWERSE : PRINT "DURATA NORMAL : PRINT 1 "jMKJ);" MIN.";:X$ = STR$ 

(SE(J)): IF LEN <X$) < 2 THEN X$ = "0" + X$ 

3640 PRINT " B X$ a " SEC " 

3650 PRINT C2$: frlAB 22: PRINT "E' LA CANZONE CHE CERCAVI (S/N)?";: GET YN$: 

PRINT : IF YN$ = "N" AND J < S THEN 3670 
3660 IF YN$ = "S 1 THBi 3680 

3670 HOME : VTAB 12: PRINT "STO CERCMDO...": POKE 34,13: PRINT 02$: PRINT R 
2$:I: GOTO 3580 
POKE 34,23: HOME 

PRINT 0$: PRINT R$;I: INPUT AL: PRINT C$ 

FI = I 

PRINT 01$: PRINT R1$;AL: INPUT RE$: PRINT Cl$ 

GOSUB 3920: RETUW 

REM VERIFICA IL PROSSIMO NUMERO DI RECORD 
PRINT 02$: PRINT R2$;0:: INPUT AR: IF AR = 0 THEN 3780 
FOR I = 1 TO AR * 2 
INPUT AR<I) 

NEXT 

PRINT C2$: IF AR > 0 THEN RETURN 
PRINT 0$: PRINT R$jO: INPUT NU: PRINT C$: RETURN 
REM CONTROLLO LUNGHEZZA DI AR$,AL$,LE$ 

FOR I = 1 TO 40:AL$ = AL$ ♦ " ": IF LEN (AL$) = 40 THEN I = 40: RETURN 


3680 
. 3690 

~ 3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
. 3790 
3800 
3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 


NEXT : RETURN 

FOR I = 1 TO 30:AR$ = AR$ + " ": 


IF LEN (AR$) = 30 THEN I = 30: RETURN 


3930 

3940 

3950 

3960 

3970 


NEXT H*ETURN 

FOR I = 1 TO 4 - LEN (LE$) 

LE$ = "0" + LE$ 

NEXT : RETURN 
PRINT CU: TEXT 

HOME : VTAB 10: PRINT "NOME ALBUM:": PRINT MID$ (RE$,8,40): PRINT "NOM 
E ARTISTA:": PRINT MID$ <RE$.48.30) 

VTAB PEEK (37) ♦ 2: PRINT "É' QUESTA LA VOCE CHE VUOI (S/N)?";: GET YN 
$: PRINT : IF YN$ = "S" THEN 3920 

HOME : VTAB 12: PRINT "STO CERCMDO...": POKE 34,13: PRINT 01$: PRINT R 
Usi: RETURN 

ME$ = LEFT$ (RE$.l):LE$ = MID$ (RE$,2.4):S = VAL ( MID$ (RE$,6,2)):AL 
$ = MID$ (RE$,8,Ì0):AR$ = MID$ (RE$,48,30):LN = VAL ( RIGHT$ (RE$, LEN 
(RE$) - 77)) 

FI = LN:AL = IsTT = VAL (LE$) 

PRINT 02$: PRINT R2$:LN: INPUT ARI: INPUT S: FOR I = 1 TO S: INPUT ST$< 
D-MHI)-SE(I) : NEXT : PRINT C2$ 

POP : RETURN 
REM TITOLO 
: INVERSE : PRINT 

// // 


3980 VTAB 2: HTAB 17: PRINT "DISCOTECA": PRINT : PRINT " COPYRIGHT BY APPLI 
CANDG & M1CROSPARC" 

3990 NORMAL 

4000 VTAB 8: PRINT "CU INSERIMENTO": PRINT "C2I RICERCA, MODIFICA" 



lunga rispetto al tempo ancora dispo¬ 
nibile sul nastro. Anche qui c’è un li¬ 
mite di 14 canzoni per record. 

Dopo l’introduzione della prima 
canzone comparirà un sottomenù che 
dà queste opzioni: 


> A < AGGIUNGI UN’ALTRA 
CANZONE 

> C < CERCA UNA CANZONE 

> E < SMETTI 


Se si sceglie “A” si può introdurre da 
tastiera un altro titolo di canzone. Se si 
sceglie “C” si può cercare qualsiasi ti- 



Figura 4. L’elenco dei record come 
appare sul video. 

tolo di canzone o lunghezza di canzone 
precedentemente memorizzato nel 
text file CANZONI. Anche qui viene 
controllato quanto tempo resta sul na¬ 
stro. Se viene introdotta l’opzione “E” 
verrà data l’opzione di salvare il nastro 
che è stato formattato come record 
permanente. Se viene data risposta af¬ 
fermativa saranno chiesti il mezzo di 
registrazione, il titolo dell’album e il 
nome dell’autore. Introdotte queste 
informazioni, il record verrà scritto sul 
dischetto proprio come se fosse stato 
introdotto con l’opzione di aggiunta. 

L’impiego 

Ecco alcuni consigli per sfruttare 
tutto il potenziale del programma Di¬ 
scoteca. Fondamentale è inizializzare 
un dischetto nuovo con Discoteca in 
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PER SEGUIRE TUTTE LE TUE ATTIVITÀ: 

Sdtware 


EXPRESS 


Migliaia di programmi ed accessori hardware di centinaia di costruttori Usa insieme con l’esperienza della più grande organizzazione mondiale del personal 
computing sono ora a Vs. disposizione per le Vs. esigenze di: Archiviazione ufficio, videoscrittura, mailing, report e comunicazioni oppure a carattere professionale 
come: 

finanza, pianificazione, ingegneria, scientifiche, calcolo, grafica, applicazioni industriali, controllo di processo, acquisizione dati ed integrate..o.. semplicemente per 
uso domestico, ricreativo e di insegnamento. 

Il più completo ed aggiornato inventario di titoli software, accessori, hardware, pronti da essere spediti a prezzi veramente competitivi. Politica di vendita o di 
ritorno del prodotto entro 30 gg., sconti di quantità. 

Chiedete del nostro programma al vostro concessionario oppure compilate e spedite il tagliando in fondo alla pagina. 

In vendita a Milano presso: Computer Shop, viale Gran Sasso 50. All’Informatica Shop, via Lazzaretto 12. A Genova presso: Elaboration Process. 
SOFTWARE 'DISPONIBILITÀ IMMEDIATA* I nuovi programmi per Apple IIC-IIE-MacIntosh 



APPLE MACINTOSH ‘AMERICAN TRAINING INT’L* 


‘PRATICORP* 


Corso autoistr. Macintosh 


Contabilità fam. 


Microsoft Basic. 

Multiplan. 

Chart. 

Microsoft Word. 
Microsoft file. 


PFS: Report 
PFS. File. 


.lit. 225.000 

‘CONTINENTAL SOFTWARE* 

.lit. 169.000 

‘MICROSOFT* 

.lit. 297.000 

.lit. 447.000 

.lit. 297.000 

.lit. 409.500 

.lit. 409.500 

‘SOFTWARE PUBLISHING* 

.lit. 275.500 

.lit. 275.500 


APPLE ll/C 

Jane (senza mouse) 

Bank Street Writer... 

Contabilità fam. 

il catalogatore fam... 

Multiplan. 


‘ARKTRONICS* 

.lit. 376.000 


‘BRODERBUND SOFTWARE* 

.lit. 147.000 


‘CONTINENTAL SOFTWARE* 


lit. 157.500 
..lit. 94.300 


‘MICROSOFT* 

.lit. 408.000 


TKISolver. 

Gestione finanz. 

Ingegneria mecc. 

Scienza introd ut. 

Costruire progetti & strutture. 

Pollar &Sense. 

Master Type. 

Visicalc. 

PFS: Report. 

PFS: File. 

PFS: Graph. 

PFS: Write. 

PFS: Access. 

PFS: Proof. 

PFS: Gestione Scuole private.... 
Soluzioni: Inventario domestico. 

Soluzioni: Rubrica Indirizzi. 

Soluzioni: Biblioteca programmi 
Soluzioni: Inventario uso affari... 
Soluzioni: Bilancio familiare. 


.lit. 913.000 

.lit. 361.500 

.lit. 361.500 

.lit. 361.500 

...lit. 361.500 

‘TRONIX* 

.lit. 252.000 

SCARDBOROUGH SOFTWARE* 

.lit. 84.000 

‘SOFTWARE ARTS* 

.lit. 210.000 

‘SOFTWARE PUBLISHING* 

.lit. 242.500 

. lit. 242.500 

.lit. 242.500 

.lit. 242.500 

.lit. 147.000 

....lit. 147.000 

.lit. 315.000 

...lit. 42.000 

.lit. 42.000 

.lit. 42.000 

.:.lit. 42.000 

.lit. 42.000 


HARDWARE ‘DISPONIBILITÀ IMMEDIATA MACINTOSH/IIC/IIE 


Mod. HE + drive & doppio Controller.lit. 1.800.000 

Mod.ilC.lit. 2.160.000 

Macintosh.lit. 4.050.000 

Image Printer.lit. 990.000 

DuoDisk.lit. 1.032.000 

Drive aggiuntivo Rana 140kb/elite 1/.lit. 550.000 

Drive Rana 163kb + contr./elite 1+/.lit. 725.000 

Rana Medadisk 652kb.lit. 1.855.000 

ProFile.lit. 2.430.000 

Corvus hard disk 6mb con mirrar.lit. 5.450.000 

Corvus hard disk 12mb.lit. 5.464.000 

Corvus hard disk 12mb con mirrar.lit. 7.000.000 

Corvus hard disk 20mb con mirrar.lit. 11.000.000 

lomega/Dual 10mb System.lit. 7.223.000 

Stampante margherita Star MI 8.lit. 980.000 

Stampante colore/grafica Epson Jx80.lit. 1.350.000 

Stampante Epson Rx80/ft.lit. 900.000 

Monitor colore 13" rgb media risoluz.lit. 558.000 

Monitor ll/e.lit. 328.000 

Monitor ambra 12”. lit. 253.000 

Monitor verde 12”.lit. 225.000 


ACCESSORI 

Microsoft softcard.lit. 1.499.000 

8088 coprocessor.lit. 1.350JD00 

Accelerator II board.lit. 1.317.000 

Ultraterm/132 col./.lit. 741.000 

Tavola grafica V.Wr.lit. 657.000 

128kb Ram exp.lit. 646.000 

Ram text 64k/80 col.lit. 430.000 

64kb Ram.lit. 429.000 

Rgb color card. HE.lit. 385.000 

Z-card.lit. 372.000 

Rana unv. contr. Il/e.lit. 290.000 

Mouse per He + paint.lit. 243.000 

Microsoft Ramcard.lit. 237.000 

Add Ram.lit. 219.000 

Koala touch tablet.lit. 199.000 

System Saver.lit. 198.000 

Sam (soft. aut. mouth).lit. 195.000 

Rom set carat. min.lit. 64.000 

Rom set carat. inv.lit. 64.000 

Joystick+toggle Ile.lit. 99.000 


‘CONDIZIONI DI VENDITA* 


I prezzi si intendono netti al pubblico compresi di Iva. Merce venduta franco cliente. Garanzia originale costruttore. Consegna: da stock. 
Merce a stock Usa: 2-4 settimane. Servizio Express: 2 settimane. 

‘Richiedeteci il listino software completo per Apple IIE-lll-Lisa/ 


l-—-——r--—^X‘;- 1 

Tagliando di risposta: 

Spedire a: Southern European Computer, via Molino 2-22030 Montorfano (CO). Tel. 031/200621 -TLX 340422 WTC-SEC 

Nome:.Cognome. 

Indirizzo: .Città:.Tel.:. 

Dispongo dipo tipo:.sono interessato acquisto programmi tipo:. 

Vorrei acquistare pc tipo:.programmi tipo: . 

periferiche tipo:.accessori tipo:. 
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4010 PRINT “[33 ELENCO 8 : PRINT a [43 ORDINAMENTO B : PRINT '[5] CALCOLO TEMPO 
DI REGISTRAZIONE" : PRINT '16Ì FINE PROGRAM' 

4020 PRINT : INVERSE : HTA8 25: PRINT 'SCEGLI: GET YN$: PRINT : NORMAL : 

IF YN$ < M D OR m > '7' THEN 4000 
4030 YN = UAL (YN$): HOME : RETURN 
-T 4040 END 

4050 REM ROUTINE DI ERRORE 

4060 ER = PEEK (222):EL = PEEK (218) ♦ PEEK (21?) * 256 
4070 IF ER = 5 AND EL = 3740 THEN PRINT sEF = 1 : PRINT W2$;0: PRINT 0: PRINT 
C2*: GOTO 3790 

4080 IF ER = 5 AND EL = 3790 THEN PRINT :EF = 1: PRINT U*;Q: PRINT 0: PRINT 
C$: GOTO 250 

4090 IF ER = 5 AND EL = 2000 OR EL = 3050 OR EL = 2340 THEN PRINT : PRINT C 
$: HOME : INVERSE : CALL - 211: VTAB ( PEEK (37) ♦ 1): PRINT 'NESSUN RE 
CORD NEL FILE.': FOR I = 1 TO 2000: NEXT : NORMAL : GOTO 220 
4100 IF ER = 9 THEN 4140 
4110 IF ER = 255 THEN 90 

4120 TEXT : HOME : PRINT 'ERRORE IN ' ;ER: PRINT 'ALLA LINEAf ';EL 
4130 END 

4140 TEXT : HOME : VTAB 8: PRINT 'SPIACENTE. QUESTO DISCO E' PIENO. SOSTITUÌ 
SCILO CON UNO NUOVO NON INIZIALIZZATP.' 

4150 PRINT : PRINT : INPUT 'BATTI <INIT> PER INIZIALIZ2ARE IL DISCO. (UN ALT 
RO TASTO PER USCIRE)';YN$ 

4160 IF YN* < > 'INIT' THEN HOME : END 

4170 HOME : VTAB 11: PRINT 'NON INTERROMPERE PRINT : PRINT 'STO INIZIALI 
ZZANDO UN NUOVO DISCO' 

4180 PRINT CHR* (4):'INIT DISCOTECA' 

4190 PRINT : PRINT 'FATTO': FOR I = 1 TO 3000: NEXT : GOTO 90 

4200 REM ROUTINE DI CENTRATURA 

4210 HTAB 20 - LEN (A$) / 2: PRINT A*: RETURN 

4220 DATA ALBUM,45 GIRI,CASSETTA,BOBINA 


Listato 1. Ecco il listato del programma «Apple discoteca». Una volta 
terminate la copiatura sarà sufficiente rispondere alle domande dei vari 
menù per costruire un efficiente archivio musicale. 


memoria. Inoltre i nomi degli artisti 
dovrebbero essere introdotti sempre 
allo stesso modo per agevolare la ri¬ 
cerca del file. Anche questo conduce a 
una possibile modifica: dato che l’Ap¬ 
ple non ammette le virgole in un’istru¬ 
zione input, si potrebbe aggiungere 
una routine per ingannare il compu¬ 
ter; questo sarebbe di grande aiuto per 
l’introduzione dei nomi degli artisti, 


specialmente se si volesse introdurre 
per primo il cognome. 

Anche se Discoteca non è progetta¬ 
to come data base per ogni scopo, ma 
come meccanismo con cui catalogare 
una collezione di musica, molte delle 
sue routine saranno comunque utili 
per la progettazione di altri program¬ 
mi di catalogazione a data base: libri, 
articoli, hobby vari. ■ 


Vivere col 
computer 

o Roma. 


VIA NOMENTANA 265-267-269-271-273 



per chi di computer sa tutto ed ha bisogno di assi 
stenza specialistica, di software, di una stampante 
nuova, di libri, o anche solo di un pacco di carta... 
per chi non sa niente ma vorrebbe sapere, e capire: 
assistenza informativa, corsi di formazione, guida al¬ 
l’acquisto, consulenza... 

pér chi ha un computer e per chi no; per un video 
a colori, i dischi, un modello nuovo, espansioni ed inte¬ 
grazioni di sistema... 


Hmprthap 

che propone, oggi, il nuovo 



^cippkz computar 

Macintosh, il personal computer che si può 
usare con un dito. Schermo ad alta risoluzione 
grafica da 512 x 342 pixel. Microprocessore a 
32 bit. 128 Kbyte di RAM, 64 Kbyte di ROM. 


fgcippkz computer distributore per l'Italia 

Rivenditore Autorizzato 

computershop 

Via Nomentana 265-273 
Tel. (06) 84.50.078 
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In queste pagine Applicando pubblica i listini prezzi aggiornati 
dei prodotti Apple distribuiti dalla Apple Computer, Via Bovio 
5, 42100 Reggio Emilia. 

Listino in vigore dal 2 giugno 1984.1 prezzi non comprendono 
le spese di installazione. 


APPLE II C 


Prezzo Prezzo 
IVA esci. IVA comp. 

Apple//c . 2.399.350 2.831.233 

Personal Computer Apple //c: compatto e 
completo. 

Il sistema comprende: 

— memoria da 128 Kbyte RAM e 16 Kbyte 
ROM 

— tastiera italiana professionale 

— visualizzazione dei testi a 80 colonne su 24 
righe 

— grafica ad altissima risoluzione e colore 

— unità a disco da 5”1/4 integrata 

— connettore per unità a disco aggiuntiva 

— due connettori seriali per stampante e 
modem 

— uscita video per Monitor B/N 

— uscita video RGB e per visore a pannello 

— modulatore PAL per collegamento al TV 

— software di base residente 

— monitor, disassembler, BASIC esteso AP¬ 
PLESOFT 

— 7 programmi dimostrativi più un disco di 
Utilities. 


UNITÀ VIDEO 

Monitor//c .. 

Video 9 pollici fosfori verdi per Apple //c. 

Supporto Monitor . 

Dispositivo accessorio del Monitor //c che ne 
permette la sistemazione ottimale sul compu¬ 
ter //c consentendone inoltre l’orientamento. 


365.000 430.700 


72.000 


84.960 
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Prezzo 
IVA esci. 

Prezzo 
IVA comp. 

ALTRE UNITÀ PERIFERICHE 

Hand Controller . 

Due manopole di controllo comprensive di pul¬ 
sante. 

60.000 

70.800 

Joystick . 

Leva di comando per fornire direttamente al 
computer input di posizione in coordinate X-Y. 

106.000 

125.080 

Mouse per Apple//c . 

Comprende il dispositivo di colloquio detto 
“Mouse” ed il programma grafico Mouse 
Paint. 

190.000 

224.200 

ACCESSORI 

Borsa Apple//c . 

75.000 

88.500 

PROGRAMMI APPLICATIVI APPLE 

Apple Works //c (Tre per te) .. 

Programma integrato per scrivere, calcolare e 

420.000 

495.600 


archiviare. 

Access //. 150.000 177.000 

Permette di utilizzare l’Apple //c come sistema 
di ricezione e trasmissione verso banche dati o 
altri personal computer. 


LINGUAGGI DI PROGRAMMAZIONE 

Logo 128 . 190.000 224.200 

Una nuova e potenziata versione del famoso 
linguaggio educativo. 


UNITÀ DI MEMORIA 

Disk//c . 599.000 706.820 

Unità di memoria aggiuntiva per floppy disk da 
5” 1/4 con capacità da 140 Kbyte. 

UNITÀ DI SCRITTURA 

Scribe . 549.000 647.820 

Stampante da 8 pollici, con possibilità grafiche 
e di stampa colore (fino a 7). Il processo di 
stampa è a trasferimento termico su comune 
carta in modulo singolo e/o continuo. 

ImageWriter 80 colonne . 1.100.000 1.298.000 

Stampante grafica da 8 pollici che permette di 
utilizzare foglio singolo o modulo continuo. La 
velocità di stampa è di 180 cps in modo grafico 
e di 120 cps in modo testo; il percorso è bidire¬ 
zionale ottimizzato. 

PlotterApple . 1.850.000 2.183.000 


APPLE //E 


Apple//e . 1.399.350 1.651.233 

Sistema di elaborazione professionale Apple 
//e, comprensivo di: 

—Memoria da 64 Kbyte RAM e 16 Kbyte ROM 

— Tastiera italiana con maiuscole e minuscole 

— Interfaccia per registratore a cassette 

— Segnale di uscita video B/N e colori PAL 

— Software di base residente 

— Monitor, Disassembler, BASIC esteso AP¬ 
PLESOFT 


ESPANSIONI 

Scheda 80 colonne . 

Permette all’Apple //e di visualizzare i testi su 
80 colonne 

Scheda 80 colonne con espansione di me¬ 
moria .. 

Espansione della memoria del computer Ap¬ 
ple //e a 128 Kbyte totali, e visualizzazione dei 
testi su 80 colonne 


225.000 265.500 


485.000 572.300 



































Prezzo Prezzo 
IVA esci. IVA comp. 

UNITÀ VIDEO 

Monitor He . 365.000 430.700 

Video a 12 pollici, fosfori verdi per Apple //e 


UNITÀ DI MEMORIA 

Disk//, drive e doppio controller . 700.000 826.000 

Unità di memoria per floppy disk da 5,25 polli¬ 
ci, con capacità di 140 Kbyte per ogni floppy. 

L’unità è comprensiva della scheda di interfac¬ 
cia per Apple //e, che permette di collegare 
anche un secondo drive aggiuntivo. 

L’Apple //e permette il collegamento di 6 drive 
con controller e 6 drive aggiuntivi, nella confi¬ 
gurazione massima. 


Disk//, drive aggiuntivo . 600.000 708.000 

Unità di memoria per floppy disk da 5,25 polli¬ 
ci, con capacità di 140 Kb per ogni floppy. 

L’unità aggiuntiva necessita del controller, for¬ 
nito nella confezione del disk//drive e doppio 
controller 


DuoDisk . 1.150.000 1.357.000 

Doppia unità di memoria per floppy disk da 
5,25 pollici con capacità di 140 Kbyte per ogni 
floppy. Per il collegamento ad Apple //è fornito 
il kit di interfaccia relativo. 


Prezzo 
IVA esci. 

L’interfaccia richiesta è di tipo seriale (cod. 

115-01) 

È necessario il set di cavi (cod. 122-08) 

Plotter Apple .. 1.850.000 

L’interfaccia richiesta è di tipo seriale (cod. 

115-01) 


ALTRE UNITÀ PERIFERICHE 


Hand controller// . 60.000 

Due manopole di controllo comprensive di pul¬ 
sante. 

Joystick// . 106.000 

Leva di comando per fornire direttamente al 
computer Apple //e input di posizione in coordi¬ 
nate X-Y. 

Numeric keypad//e . 298.000 

Tastierino numerico per Apple //e, completo 
ed interfacciato 

Tavoletta grafica per Apple//e . 1.450.000 

Mouse per Apple //e . 270.000 

Comprende il mouse, l’interfaccia per Apple 
//e ed il programma grafico Mouse Paint. 


ProFile . 2.700.000 3.186.000 

Unità di memoria basata su disco rigido (Win¬ 
chester) da 5 Megabyte. Per il collegamento 
ad Apple //è fornito il relativo kit di interfaccia. 

UNITÀ DI SCRITTURA 

Silentype//e . 750.000 835.000 

Stampante termica da 80 colonne con capaci¬ 
tà grafiche. 

La confezione comprende l’interfaccia ed i ca¬ 
vi di collegamento all’Apple //e. 

Image Writer 80 colonne . 1.100.000 1.298.000 

Stampante grafica da 8 pollici che permette di 
utilizzare foglio singolo o modulo continuo. 

Stampa in normale, compresso, grassetto e 
proporzionale inoltre permette la stampa di 
grafici ad alta risoluzione. 

La velocità di stampa è di 180 cps in modo 
grafico e di 120 cps in modo testo; il percorso è 
bidirezionale ottimizzato. 

L’interfaccia richiesta è di tipo seriale, (cod. 

115-01). 


INTERFACCE 


Super interfaccia seriale per Apple //e . 250.000 

Scheda di interfaccia seriale RS232 utilizzabi¬ 
le per il collegamento di stampanti e linee di 
comunicazione. 

Interfaccia parallela universale per Apple 


//e . 300.000 

Scheda di interfaccia che permette il collega¬ 
mento di unità periferiche con standard paral¬ 
lelo e Centronics. 

Scheda interfaccia IEEE488per Apple//e 841.000 

Scheda prototyping hobby per Apple //e 43.000 


ACCESSORI 

Trascinatore modulo continuo per stam¬ 
pante a margherita . 500.000 


Image Writer 132colonne .. 1.400.000 1.652.000 

Stampante grafica da 15 pollici le cui caratteri¬ 
stiche, tranne la larghezza, sono simili alla 
Image Writer 80 colonne. L’interfaccia richie¬ 
sta è di tipo seriale ed è necessario ordinare il 
set di cavi (cod. 122-10). 

Stampante a margherita Apple . 3.636.000 4.290.480 

Per ottenere stampe di documenti e corrispon¬ 
denza di elevata qualità. La spaziatura fra i 
caratteri è selezionabile: 10, 12, 15 caratteri 
per pollice. La velocità è di 40 caratteri al se¬ 
condo ed il percorso è bidirezionale ottimiz¬ 
zato. 


PROGRAMMI APPLICATIVI 


Apple Writer //e in italiano . 310.000 

Sistema di videoscrittura 

QuickFile//e . 180.000 

Gestione archivi ed indirizzari 

Business Graphics // . 320.000 

Sistema di elaborazione e creazione di grafici. 

MultiplanperApple//e . 560.000 


Sistema di calcolo basato su foglio elettronico 
suddiviso in elementi mutuamente correlabili. 


Prezzo 
IVA comp. 

2.183.000 

70.800 

125.080 

351.640 

1.711.000 

318.600 

295.000 

354.000 

992.380 

50.740 

590.000 

365.800 

212.400 

377.600 

660.800 
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Prezzo Prezzo 
IVA esci. IVA comp. 

LINGUAGGI DI PROGRAMMAZIONE ED 
UTILITIES 

Apple Pascal//e . 450.000 531.000 

Apple Fortran . 360.000 424.800 

Super Pilot . 360.000 424.800 

Co-Pilot . 65.000 76.700 

Apple Logo . 320.000 377.600 

Raccoglitore Apple Work Bench . 16.000 18.880 

DOS Programmers Tool kit . 150.000 177.000 

PRODOS Assembler Tools . 100.000 118.000 

Apple//Pascal Numeric Sane . 70.000 82.600 

PRODOS USER’S kit . 90.000 106.200 

BASIC PROGRAMMINO WITH PRODOS . 60.000 70.800 

APPLESOFT PROGRAMMERS kit . 100.000 118.000 

Apple NPL// . 1.050.000 1.239.000 

Apple//e plotter PIK . 195.000 230.100 

SPECIAL DELIVERY SOFTWARE 

Apple Project Manager . 470.000 554.600 

Pascal Animation Tool . 151.000 178.180 

Personal Finance . 151.000 178.180 

VT-IOOEmulator . 151.000 178.180 

DOCUMENTAZIONE 

* Manuale utente delTApple //e** . 25.000 29.500 

Manuale di introduzione al linguaggio Ap¬ 
plesoft //e** . 25.000 29.500 

Manuale del linguaggio Applesoft //e . 30.000 35.4000 

Set di manuali Applesoft //e (125-25 e 

125-26) . 50.000 59.000 

Manuale del sistema Apple//e . 30.000 35.400 

Applesoft II Reference Manual** . 21.000 24.780 

Apple II Reference Manual** .. 42.000 49.560 

Apple Integel Basic Programming Ma¬ 
nual** . 15.000 17.700 

* Apple Pascal Reference Manual . 39.000 46.020 

* Apple Pascal Operating System Manual 45.000 53.100 

6502 Programming Manual . 30.000 35.400 


* Set di manuali Apple Writer//e** . 

PRODOS Technica! Reference Manual. 


Prezzo 

Prezzo 

IVA esci. 

IVA comp. 

49.000 

57.820 

50.000 

59.000 


* Manuali già inclusi nel prezzo delle singole 
parti, ma ordinabili anche separatamente. 
** Disponibili in lingua italiana. 


MACINTOSH 


Macintosh . 4.499.350 5.309.233 

Personal Computer Macintosh per la scrivania 

degli anni '80. 

Il sistema comprende: 

— unità centrale "32 bit” 128 K RAM e 64 K 
ROM 

— video ad altissima risoluzione 

— unità a disco semirigido da 3.5” per 400K 
bytes integrata 

— tastiera removi bile 

— mouse 

— due interfacce seriali RS422/RS232 Ap- 
pleBus compatibili 

— interfaccia per unità a disco esterna 

— scatola contenente disco di sistema, disco 
vuoto, disco di visita guidata per l’istruzio¬ 
ne all’uso del sistema, audiocassetta per 
visita guidata, manuale utente. Il tutto in 
lingua italiana. 

— scatola software applicativo contenente di¬ 
sco Write/Paint, disco vuoto, disco di visita 
guidata per l’istruzione all’uso delle due 
applicazioni, audiocassetta per visita gui¬ 
data, manuale MacPaint, manuale Mac 
Write. Il tutto in lingua italiana. 


UNITÀ DI MEMORIA 


Unità disco esterna . 

Unità aggiuntiva per disco semirigido da 3.5” 
per 400K bytes. 


880.000 1.038.400 


UNITA DI SCRITTURA 


ImageWriter 80 colonne . 1.100.000 1.298.000 

Stampante grafica da 8 pollici che permette di 
utilizzare foglio singolo o modulo continuo. 


ALTRE UNITÀ PERIFERICHE 

Numeric Keypad . 180.000 212.400 


ACCESSORI 
Borsa Macintosh 


180.000 212.400 


LISA 


Lisa2 . 5.900.350 6.962.413 

Sistema di elaborazione a 32 bit comprenden¬ 
te: 512 Kbyte di memoria centrale, video, ta¬ 
stiera, mouse e un drive 3.5” con capacità da 
400 Kbyte. Il Lisa 2 diventa un Lisa 2/5 aggiun¬ 
gendo l’unità di memoria esterna ProFile. 




72 















































Prezzo Prezzo 
IVA esci. IVA comp. 


Prezzo 
IVA esci. 


Usa2/5 . 7.900.350 9.322.413 

Sistema di elaborazione a 32 bit comprenden¬ 
te: 512 Kbyte di memoria centrale, video, ta¬ 
stiera, mouse, un drive 3.5” con capacità da 
400 Kbyte e l’Hard disk ProFile esterno da 5 
Megabyte. 


LisaProject . 710.000 

LisaTerminal . 560.000 

Lisa Office Software 

(Sistema Operativo e 6 applicativi: da 02 a 

07) . 3.100.000 

Richiede 1 Megabyte di memoria interna 


Lisa 2/10 . 9.900.350 11.682.413 

Sistema di elaborazione a 32 bit comprenden¬ 
te: 512 Kbyte di memoria centrale, video, ta¬ 
stiera, mouse, un drive 3.5” con capacità da 
400 Kbyte e un Hard disk da 10 Megabyte 
integrato nel sistema. 


ESPANSIONI 


ESPANSIONI DI SISTEMA 


Fortran 80 Microsoft per Scheda Z80 . 456.000 

Basic Compiler Microsoft per Scheda Z80 . 863.000 

ALDS Microsoft (sistema di sviluppo per pro¬ 
grammi Assembler8080, Z80 e 6502) . 292.000 

Scheda orologio calendario CCS . 280.000 

Arithmetic Processor CCS .. 1.114.000 

TASC Microsoft (compilatore Applesoft) . 409.000 


Scheda di memoria aggiuntiva da 512 Kby¬ 
te . 2.900.000 3.422.000 

Permette l’espansione della memoria dei Usa 
ad un Megabyte. Con tale scheda i Lisa della 
serie (, 2” possono ospitare l’office System e 
quindi le applicazioni per ufficio. 


UNITÀ DI MEMORIA 

ProFile . 2.700.000 3.186.000 

Unità di memoria aggiuntiva da 5 Megabyte 
basato su disco rigido (Winchester). Collegato 
a Lisa 2/5 e 2/10, richiede l’interfaccia parallela 
(010-10) che permette di connetterne due alla 
volta. 


UNITÀ DI SCRITTURA 

Image WriterQOcolonne . 1.100.000 1.298.000 

Stampante grafica da 8” che permette di utiliz¬ 
zare i fogli singoli o ii modulo continuo. La 
velocità di stampa è di 180 cps in modo grafico 
e 120 cps in modo testo, mentre il percorso è 
bidirezionale ottimizzato. Il collegamento è di 
tipo seriale. 


Stampante a margherita Apple . 

Per ottenere stampe di documenti e corrispon¬ 
denza di elevata qualità. La velocità è di 40 
caratteri al secondo ed il percorso è bidirezio¬ 
nale ottimizzato. Il collegamento è di tipo se¬ 
riale. 

3.636.000 

4.290.480 

Confezione 6 margherite tipo C. 10 . 

Margherita tipo Courier 10 

150.000 

177.000 

Confezione 6 margherite tipo G. 15 . 

Margherita tipo Gothic 15 

150.000 

177.000 

Confezione 6 margherite tipo B.P. . 

Margherita tipo Boldface Proporzionale 

150.000 

177.000 

PROGRAMMI APPLICATIVI 



LisaCalc . 

550.000 

649.000 

LisaDraw . 

710.000 

837.800 

LisaGraph . 

550.000 

649.000 

LisaWrite . 

550.000 

649.000 

LisaList . 

350.000 

413.000 


INTERFACCE 


Modulatore UHF . 82.000 

Interfaccia IR ET standard Centronics . 155.000 

Interfaccia CCS parallela . 292.000 

Interfaccia CCS seriale RS232-C . 347.000 

Interfaccia Colore Apple II per Monitor Hanta- 

rex . 104.000 

Interfaccia Seriale sincrona CCS . 479.000 

Interfaccia Centronics con Buffer SET . 400.000 

Scheda CCS GPIB IEEE488 . 662.000 

Scheda CCS A/D con verter BCD . 269.000 

Controller per Drive 8” FAST Singola densità 402.000 

Controller + Software per compatibilità IBM su 

8”singola densità . 770.000 

Controller per Drive 8” DD-DF con cavo per 

Apple II plus . 973.000 

Controller per Drive 8” DD-DF con cavo per 

Apple //e . 995.000 

Interfaccia grafica per stampante IRET 80-132 

colonne .. 238.000 

Interfaccia e ca vo Hantarex per Apple //e . 60.000 

MISCELLANEA 

Alimentatore tampone . 290.000 

DOCUMENTAZIONE 

32 Programmi per Apple (Franco Muzzio Edit.) 9.314 

SOFTWARE 

Personal Data Base 5” . 72.000 

Personal Data Base 8” . 82.000 

Personal Filing System per Apple II . 244.000 

Personal Report System per Apple II . 217.000 

Programming AIDS 3-3 . 209.000 

Personal Filing System per Apple III . 299.000 

Personal Report System per Apple III . 262.000 

PTERO (Cominfor) Word processing . 190.000 

P.F.S. Graphics// . 244.000 

P.F.S. Graphics/// . 341.000 

P.F.S. Data Saver . 117.000 

Personal Filing System per Apple //e . 244.000 

Personal Report System per Apple//e . 244.000 

Personal Filing System Graph per Apple //e .... 244.000 

Dossier (Mondadori) ... 549.020 

Fisica Ottica (Mondadori) . 147.059 

Logica simbolica (Mondadori) . 127.451 

Dedalus (Mondadori) . 58.824 

CFS file (Data Base Cominfor) . 200.000 


Prezzo 
IVA comp. 


837.800 

660.800 
3.658.000 


538.080 

1.018.340 

344.560 

330.400 

1.314.520 

482.620 


96.760 

182.900 

344.560 

409.460 

122.720 

565.220 

472.000 

781.160 

317.420 

474.360 

908.600 

1.148.140 

1.174.100 

280.840 

70.800 


342.200 


9.500 


84.960 

96.760 

287.920 

256.060 

246.620 

352.820 

309.160 

224.200 

287.920 

402.380 

138.060 

287.920 

287.920 

287.920 

560.000 

150.000 

130.000 

60.000 

236.000 
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Bastano pochi secondi per sapere quanti errori, di che tipo e in 
quali linee contiene il programma che avete appena finito di copiare. 
Come fare per rimediare in poco tempo e bene? 

Aiuto vi consente di correggerli subito e tutti insieme. 


Un aiuto a prova 
d’errore 



Illustrazione 
di Don Weller 
per Apple 
Computer Ine. 


■■ 
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A lzi la mano chi è riuscito anche 
solo una volta a digitare o svilup¬ 
pare un programma senza essere in¬ 
cappato in qualche errore. Purtroppo 
nell’Applesoft la segnalazione di 
eventuali linee sbagliate avviene solo 
al momento di far girare il program¬ 
ma. Capita così di dover battere deci¬ 
ne di “RUN” prima di avere un listato 
totalmente corretto. D’altronde un 
controllo diretto al momento dell’in¬ 
put da tastiera non permetterebbe la 
battitura di una istruzione volutamen¬ 
te, errata per poi farla seguire, magari, 
da un comando CALL. E allora? Allo¬ 
ra il problema è in parte risolto dal 
programma Aiuto pubblicato in que¬ 
ste pagine. Scritto in linguaggio mac¬ 
china, Aiuto è in grado di scoprire 
l’80% degli errori di battitura; i rima¬ 
nenti sono quelli generalmente dati da 
variabili mal definite, valori numerici 
errati, errori di linea, Rem e simili. 

Per tradurre le istruzioni 

Prima di descrivere il programma 
può essere utile ricordare come è 
strutturata quella parte di memoria 
adibita ai programmi Applesoft, e co¬ 
me agisce l’interprete Applesoft. 

Quando un programma in Apple¬ 
soft viene battuto o caricato (LOAD), 
trova posto in una determinata loca¬ 
zione di memoria del computer, men¬ 
tre quando si esegue un RUN l’inter¬ 
prete Applesoft esegue il programma 
esattamente come è stato scritto, cioè 
esaminando e mettendo in opera quel¬ 
lo che trova. L’interprete è molto me¬ 
ticoloso su come deve essere locato in 
memoria un programma. Ogni linea 
dovrebbe apparire pressappoco così: 


2 BYTES LOCAZIONE DEL¬ 

LA PROSSIMA LI¬ 
NEA (Oppure $0000 
PER SEGNALARE 
LA FINE DEL PRO¬ 
GRAMMA) 

2 BYTES NUMERO DI LI¬ 

NEA DI QUESTA 
LINEA 

1 o PIÙ BYTESISTRUZIONI DEL 
PROGRAMMA 

$00 BYTE SEGNALA LA FI¬ 
NE DI QUESTA 
LINEA 


Ogni istruzione deve terminare o 
con un $00 byte o con un $3A byte. 
Dietro a ciò, tuttavia, non c’è una 
struttura standard per tutte le istruzio¬ 
ni; ognuna ha le proprie. 


*9000 

.9591 







9188- 

4C 

6E 

92 

20 

Al 

94 

20 

B3 










9190- 
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Mentre l’interprete esegue un pro¬ 
gramma, deve anche tenere conto dei 
valori dei bytes. Di solito lo fa ese¬ 
guendo i comandi JSR $00B1 (o anche 
JSR CHRGET) e JSR $00B7 (JSR 
CHRGOT). Il comando JSR 
CHRGET richiama il byte successivo 
del programma, JSR CHRGOT chia¬ 
ma di nuovo l’ultimo byte incatenato 
da un comando JSR CHRGET. 

Invece di aggiungere un programma 
a bytes in memoria, queste due impor¬ 
tanti routines creano tre registri addi¬ 
zionali, ognuno dei quali può essere 
controllato e usato dopo un comando 
JSR CHRGET o JSR CHRGOT. 
Dapprima il registro CHRPTR di pa¬ 
gina zero, locato nella memoria in $B8 
e $B9, fa da puntatore al byte richia¬ 
mato più di recente da un CHRGET. 
Di solito quando un routine di ROM è 
chiamata, CHRPTR punta al primo 
byte della routine (gli altri registri pos¬ 
sono essere aggiornati chiamando 
spesso un CHRGOT). 

Quando la routine di ROM termi¬ 
na, CHRPTR generalmente punta al 
byte che segue l’ultimo byte utilizzato 
dalla routine. 

In un secondo tempo, se il byte ri¬ 
chiamato è o un $00 o un $3A, che 
significano la fine di un comancio, allo¬ 
ra viene settato il registro Z; in caso 
contrario è svuotato. Da ultimo, il re- j 
gistro portante: viene settato quando ! 
il byte è un numero ASCII, da $30 a 
$39, viene invece svuotato in caso con¬ 
trario. Mentre l’interprete esegue co¬ 
mandi Applesoft, sia da programma 
sia da tastiera, esso è controllato dal 
programma ROM in $D7D2. Questa 
routine esegue alcune inizializzazioni, 
per esempio il BREAK se CTRL-C 
viene premuto, settando alcuni regi¬ 
stri di emergenza in caso di errori, i 
numeri di linea, e scrivendo i numeri 
di linea se il comando TRACE è at¬ 
tivo. 

L’interprete poi richiama il primo 
byte del comando, esegue un JSR 
$D828, e torna in $D7D2 per eseguire 
il comando successivo. 

La breve routine in $D828 esegue 
un comando Applesoft. Inizia col con¬ 
trollare se il primo byte del comando è 
un carattere ASCII o se è un simbolo 
per una parola-chiave. Se è ASCII, il 
comando LET in $DA46 lo esegue; in 
caso contrario, viene eseguito un con¬ 
trollo per vedere se il segno è uno dei 
64 simboli con i quali può iniziare un 
comando. In questo caso si salta alla 
routine che controlla quel simbolo. 
Ciò viene fatto usando il doppio del 
valore del simbolo come un indice: 
due valori sono caricati dalla locazione 


$D000 e successivamente immessi nel¬ 
l’insieme. A questo punto un JMP 
$00B1 richiama il programma di byte 
successivo al simbolo. Alla fine della 
routine di CHRGET in $00B1 c’è un 
RTS. Tuttavia, invece di ritornare, la 
RTS salta al byte seguente l’indirizzo 
immesso nell’insieme, che è la routine 
che controlla la parola-chiave richia¬ 
mata. 


Come lavora Aiuto 

Il programma è più o meno basato 
sui processi logici dell’interprete. La 
parte d’esecuzione inizia alla locazio¬ 
ne 900000 con la prima routine, chia¬ 
mata Line, che è identica alla routine 
dell’interprete in $D7D2. Line effet¬ 
tua alcune inizializzazioni per poi set- 
tare i puntatori CHRPTR all’inizio 
della linea. A questo punto esegue una 
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JSR LINE (cioè chiama la routine che 
controlla la sintassi della linea). Ven¬ 
gono poi fissati i puntatori alla linea 
successiva e così di seguito fino alla 
fine del programma. Un’altra routine 
controlla gli errori relativi alle 64 paro¬ 
le chiavi con cui è possibile iniziare i 
comandi. Questo controllo avviene at¬ 
traverso un CHRGET che, però, non 
esegue i comandi (come fa la corri¬ 
spondente routine in Rom), ma si limi¬ 
ta a verificarne la sintassi. 

Si supponga che Aiuto debba ana¬ 
lizzare una linea contenente l’istruzio¬ 
ne FOR. Ecco come procede: FOR 
deve essere seguito dal nome di una 
variabile reale, da qui l’inizio di una 
JSR; questa a sua volta deve essere 
seguita dal segno uguale (=), da qui il 
controllo per il simbolo 208. Poi deve 
esserci una espressione numerica, 
controllata da una prima JSR; poi de¬ 
ve esserci la parola-chiave TO, simbo¬ 
lo 193; dopo di essa deve trovarsi 
un’altra espressione numerica, con¬ 
trollata da una seconda JSR. A seguire 
tutto questo c’è l’opzione STEP an- 
ch’essa da controllare, simbolo 199: se 
il simbolo non viene trovato, il con¬ 
trollo termina estendendosi a un RTS, 
se invece STEP è presente, deve esse¬ 
re seguito da una ulteriore espressione 
numerica, verificata dal finale JMP. 

Quando il controllo termina, il pro¬ 
gramma salta alla porzione chiamata 
EOC.CK. Questa routine verifica i 
bytes $00 o $3A, che devono essere 
presenti alla fine di ogni comando. 

Oltre al controllo dei comandi, Aiu¬ 
to offre alcune routine generali. Due 
di queste sono degne di essere menzio¬ 


nate in quanto le loro analoghe in 
ROM servono quando, scrivendo in 
linguaggio macchina, bisogna inter¬ 



pretare alcuni codici in Applesoft. 

La routine chiamata COMMAI ha 
la sua analoga nella ROM in $DEBE 
che, quando viene attivata, emette un 
?SYNTAX ERROR se il byte del pro- 
gramma corrente (puntato da 
CHRPTR) non è una virgola. Routi- 
nes simili appaiono in $DEB8 e in 
$DEBB per il controllo di parentesi 
lasciate aperte; in $DECO per una 
eventuale segnalazione di errore se il 
byte corrente non è lo stesso che risie¬ 
de in memoria. Ognuna di queste rou- 
tines termina con un JMP CHRGET 
che richiama il byte successivo. 

L’altra, GETLNUM, ha l’analogia 
in ROM in $DAOC. In questo caso si 
valuta un numero di linea e che viene 
locato in $50-$51. Se il numero di linea 
supera 63999, verrà segnalato un 
7SYNTAX ERROR. Una messa in 
opera della versione ROM deve essere 
immediatamente preceduta da un JSR 


Un numero per ogni errore 

Ecco un elenco completo dei codici di errore del Basic Applesoft. Può 
essere di grande utilità nei programmi in cui sia stato inserito un Peek 
(222) per segnalare il codice dell’errore. Confrontando il numero segnala¬ 
to con questa tabella sarà più semplice correggere l’errore alla linea 
indicata dal programma. 


0 = Next without for 

I = Language not available 
2, 3 = Range error 

4 = Write protected 

5 = End of data 

6 = File not found 

7 = Volume mismatch 

8 = I/O Error 

9 = Disk full 

10 = File locked 

II = Syntax Error (DOS) 

12 = No buffers available 

13 = File mismatch 

14 = Program too large 

15 = Not direct command 

16 = Syntax Error 


22 = Return without gosub 
42 = Out of data 
53 = Illegal quantity 
69 = Overflow 
77 = Out of Memory 
90 = Undef statement 
107 = Bad subscript 
120 = Redim. array 
133 = Division by zero 
163 = Type mismatch 
176 = String too long 
191 = Too complex 
224 = Undef. function 

254 = Bad input resp. 

255 = Ctrl-C Interrupt 



CHRGET o da un JSR CHRGOT. 

Altre interessanti routine possono 
essere così sintetizzate: E VAL (che 
corrisponde in Rom a $DD7B), valuta 
ogni espressione sia numerica che alfa- 
numerica; VAR (Rom $DFE3), che 
tratta variabili e matrici di ogni tipo; 
EVALNUN (Rom $DD67) che valuta 
ogni espressione controllando la sua 
natura numerica; NUM.CK (Rom 
$DD6A), che emette un 7TYPE MI- 
SMATCH ERROR se l’espressione 
non è una stringa. 

Come si usa il programma 

Il primo passo è quello di armarsi di 
pazienza, battere CALL-151 e copiare 
il listato per poi salvarlo su disco bat¬ 
tendo il comando BSAVE AIUTO, 
A$9000, LS0591. A questo punto Aiu¬ 
to è pronto per essere usato. Basta 
caricare il programma Applesoft da 
controllare (con il comando LO AD), 
e di seguito digitare BRUN AIUTO. 
In pochi secondi un completo rappor¬ 
to degli errori trovati verrà visualizza¬ 
to sul monitor e verrà prontamente 
restituito il cursore Applesoft con il 
programma intatto. Una volta appor¬ 
tate le dovute correzioni e salvate sul 
disco, è meglio far girare ancora una 
volta il programma AIUTO per essere 
certi che non vi siano più errori. A 
questo punto si può eseguire con tran¬ 
quillità un RUN del programma sicuri 
che molti degli errori saranno spariti. 

Gli errori che Aiuto può riconosce¬ 
re sono: 

• 7SYNTAX ERROR 

• 7TYPE MISMATCH ERROR 

• ?UNDEF’D STATEMENT 
ERROR 

Quando un errore viene scoperto, il 
resto della linea viene ignorato, e il 
controllo passa immediatamente alla 
successiva. Dopo che tutto il program¬ 
ma è stato verificato, il numero totale 
di errori viene segnalato sul video. 
Quando occorre fermare il program¬ 
ma, basta premere il tasto Control in¬ 
sieme alla “C” (CTRL-C). Se l’errore 
segnalato è un 7UNDEFD STATE¬ 
MENT ERROR, si deve controllare 
anche che il numero di linea a cui ci si è 
riferiti esiste realmente. Per esempio, 
la linea 50 GOTO 100 genererà un 
?UNDEF’D STATEMENT ERROR 
IN 50 se non esiste nessuna linea 100. 

Purtroppo anche Aiuto ha dei limi¬ 
ti: il programma non segnala errori di 
tipo logico o errori che indicano un 
superamento di capacità da parte della 
macchina. Inoltre non localizza alcun 
tipo di errore strutturale quali 7RE- 
TURN WITHOUT GOSUB ER¬ 
ROR o ?OUT OF DATA ERROR. ■ 
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f ; jfi; lettere 


Pronti, puntare, 
fuoco!!! 

Dopo aver finito di copia¬ 
re il gioco “Pronti, puntare, 
fuoco” {Applicando n.l) mi 
sono reso conto che si parla 
di una routine in linguaggio 
macchina, di cui non c’è 
traccia nel listato. Ho tenta¬ 
to di farlo girare, non c’è sta¬ 
to verso. Cosa devo fare? 

Antonello Belli 
Napoli 

La routine in linguaggio 
macchina è creata dal prò - 
gramma per mezzo dei data 
nei passi dal 63000 al 63040. 
Prova a controllare bene tutti 
i dati e vedrai che il program¬ 
ma girerà perfettamente. 

Critiche piccole 
ma amichevoli 

1) Nel numero tre di Ap¬ 
plicando a pag. 82, svelate 
un piccolo trucco per il Ile 
che però si trova casualmen¬ 
te nel posto più ovvio è cioè 
nel manuale d’uso... del Ile. 
Certo, è bene che ci rinfre¬ 
schiate la memoria, ma pre¬ 
feriremmo conoscere so¬ 
prattutto i segreti veri dei 
nostri computer. 

2) Nel numero 4, a pag. 
10, date notizia di un prezio¬ 
so marchingegno (costo fi¬ 
nale: circa 95.000 lire) che 
serve per fare la tacca sui 
dischetti in modo da poterli 
usare sul retro. Vi prego di 
informare gli altri lettori, so¬ 
prattutto i neofiti del com¬ 
puter, che il sottoscritto - 
così come centinaia di altri 
Applisti - fa le tacche sui di¬ 
schetti con un paio di ottime 
forbici da cancelleria ed un 
taglierino, senza aver mai 
subito il minimo inconve¬ 
niente. Costo degli attrezzi 
(che servono anche a tante 
altre cose): circa 10.000 lire. 
A tal proposito vorrei dire: 
certo noi lettori vogliamo 
essere aggiornati sulle novi¬ 
tà in commercio, ma non vi 
sembra di giocare pesante 
nel dare risalto a un banale 
ed inutile attrezzo da 95.000 


lire? Ritengo giusto che la 
rivista agevoli quelle ditte 
che propongono qualcosa di 
utile ad un prezzo ragione¬ 
vole, non dimenticando che 
il dovere principale di una 
rivista è quello di difendere 
sempre gli interessi dei let¬ 
tori. Esempio: poiché la 
stessa Apple ammette (pag. 
75 Manuale utente Apple // 
e) che si possono usare sche¬ 
de prodotte da altre ditte, 
perché non pubblicare pro¬ 
ve comparate di varie sche¬ 
de in commercio, sia 80 co¬ 
lonne più 64K di memoria 
aggiuntiva, sia Z80 per CPI 
M, sia per disk drivers etc. 
etc.? 

3) Nel pubblicare recen¬ 
sioni su software o hardware 
in commercio, sarei lieto se 
pubblicaste per ogni articolo 
una scheda con le informa¬ 
zioni essenziali: produttore, 
distributore, indirizzo, prez¬ 
zo dell’articolo, configura¬ 
zione di sistema richiesta 
A. Emilio Guarisco 
Ribera 

A proposito del primo 
punto vorrei precisare che 
nelle rubriche APPLETTE- 
RE, APPL1HELP, AP- 
PLICOSÌ, vengono propo¬ 
sti piccoli trucchi, modifiche 
a programmi, correzioni, e 
tante altre cose, perché sono i 
lettori che ci propongono do¬ 
mande alle quali siamo lieti 
di rispondere. Le capiterà 
certo di trovare Trucchi che 
lei già conosce ma che noi 
pubblichiamo lo stesso per¬ 
ché ci vengono chiesti da no¬ 
stri lettori che non hanno la 
sua fortuna di essere già così 
esperto della macchina e del 
suo manuale. Nel secondo 
punto sono daccordo con lei 
per quanto riguarda il prez¬ 
zo un po’ elevato di questo 
attrezzo, ma ci sembra giu¬ 
sto fare sapere ai lettori che 
questo oggetto esiste, senza 
dare troppo risalto o di gio¬ 
care pesante, poiché non di¬ 
ciamo che questo attrezzo sia 
indispensabile o che senza 
non si riesca a fare le tacche 
sui dischi, ma diciamo da chi 
è distribuito e quanto costa, 
proprio come voleva lei. 


A 


I SISTEMI DI CON 

. V —— — 


DALL INVI 



Filiali: Milano Tel. 02/75451 -Torino Tel. 011/6192192 
Mestre Tel. 041/962255 - Genova Tel. 010/451801 
Bologna Tel. 051/557157-Firenze Tel. 055/355841 
Roma Tel. 06/58421 -Napoli Tel. 081/660266. 
Distributori autorizzati in tutta Italia-vedi Pagine Gialle. 
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SUPPORTI MAGNETICI 3M. 

NZKMIE AL PRIMATO TECNOLOGICO. 



I, 


Il primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologai 
dai maggiori costrutfor 
Certificate al 100%. 

Garantite 5 annirEsportaf 
in tutto il mon/o. Prescelte come 
riferimento intemazionale da ECMA, 
ISp~ed A Noi. Una gamma completa 
la per^Diskette 8 pollici che per le 
''Minidiskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 


rivestimento magnetico, 
garantiscono 
un’eccezionale resistenza 
all’usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SISTEMI PER L'UFFICIO 3M.LA PERFEZIONI DELLA SPECE. 



!-1 

| Desidero ricevere ulteriori informazioni i 

sui Supporti Magnetici 3M. 

I Nome_ I 

Azienda_ 


Via 


Cap_Città_ 

A 

Ritagliare e spedire a: 

3M Italia S.p.A.-Linea Diretta- 
Casella Postale 10411/10412-20110 Milano. 
Oppure telefonare a: 02/75451 
























ASSISTENZA TECNICA 

VOSTRA 


ENCODEX 

ENCODEX 


ENCODEX 


ENCODEX 


ENCODEX 


ENCODEX 


è ASSISTENZA TECNICA per il Vostro 
Personal Computer APPLE 

è la prima società indipendente di 
ASSISTENZA TECNICA in Italia 

è l’unica organizzazione autorizzata 
da APPLE per «ASSISTENZA TECNICA 
IN LOCO su tutto il territorio nazionale 

Vi propone il servizio IN LOCO 
su tutto il territorio nazionale 
con tempestività d’intervento 
ovunque esso venga richiesto 

è ASSISTENZA TELEFONICA: 
il servizio permette di risolvere le Vostre 
difficoltà tecniche anche al telefono 

è ASSISTENZA TECNICA 24 ORE: 
la nostra segreteria telefonica è operativa 
per 24 ore sette giorni su sette. 



E.H.S. 


encodex hardware Service s.r.l. 


#ippkz 


sede: milano, via padova, n. 38 
tei. 28 71 612 

telex: encsat - I 322268 


assistenza autorizzata 
in loco 


STUDIO PESCINI MILANO 





















































lettere 


Costi auto 

Benché copiato corretta- 
mente, il programma “I co¬ 
sti dell’auto” apparso sul n.2 
di Applicando non gira, e mi 
dà errore 5 alla linea 1630. 
Non riesco a capire perché. 
Potete darmi qualche delu¬ 
cidazione? 

Francesco Prete 
Trento 

Errore 5 equivale a un 
END OF DATA: vuol dire 
che nel dischetto non ci sono 
file di testo chiamati INTE- 
RESSI/CARBURANTI e 
AUTO1. Per ovviare a que¬ 
sto inconveniente è sufficien¬ 
te digitare questo mini pro¬ 
gramma che scriverà i due 
file di testo necessari a toglie¬ 
re Verrore. Prima di dare il 
run bisogna assicurarsi di 
avere inserito nel drive il di¬ 
sco che contiene il program¬ 
ma costi d'auto. 

100 D$ = CHR$ (4) : PRINT 
D$; u OPEN INTERESSI! 
CARBURANTI” 110 
PRINT D$; “WRITE IN¬ 
TERE S S I / C A R B U- 
RANTI” 

120 PRINT 1 

130 PRINT D$; u CLOSE 


INTERESSI/CARBU- 

RANTI” 

140 PRINT D$; u OPEN 
AUTOr 

150 PRINT D$: “WRITE 
AUTO1” 

160 PRINT J5 

170 PRINT D$; i( CLOSE 

AUTOr 

Mac come 
terminale 

Intendo acquistare un 
personal computer e la mia 
scelta è orientata verso il 
Macintosh. Vorrei sapere se 
è possibile utilizzarlo come 
terminale con l’ausilio di un 
modem. 

Claudio Iaconi 
Roma 

Il Macintosh ha un'uscita 
predisposta per il collega¬ 
mento ad un modem. La 
possibilità di utilizzarlo co¬ 
me terminale, dipende dal 
linguaggio di comunicazio¬ 
ne del computer principale. 
Essendo questo linguaggio 
caricato da programma, è 
possibile che alcune software 
house si siano interessate al 
problema e stiano per porvi 
rimedio. 


Mercatino delie mele 


V Scambio programmi di 
ogni tipo per Apple II, 
escluso acquisto. Assicu¬ 
rasi risposta a tutti. Scrive¬ 
re o telefonare a Nico Ca¬ 
vallo, C.P. 458, 70100 Ba¬ 
ri. Tel. 080/330499. 

®Vendo Orange 48K - 
Language card 16K + Dri¬ 
ve + Doppio controller + 
Modulatore tv, in garan¬ 
zia, eventualmente anche 
monitor. Regalo program¬ 
mi: tei. 049/851143. Mau¬ 
rizio. 

^Vendo Apple II 64K 
con due disk drive, moni¬ 
tor Philips e 200 program¬ 
mi professionali a 2 milio¬ 
ni, ancora in garanzia. Te¬ 
lefonare a Claudio, tei 02/ 
5397867. 


^Scambio programma 
Losksmith 5.0 con Flight 
Simulator II. Posseggo 
inoltre una nutrita biblio¬ 
teca di programmi: spedi¬ 
re 500 lire per ricevere la 
lista. Angelo Andina, Via 
F. Baracca 2, 40033 Casa- 
lecchio di Reno (BO). 

® Cambio/vendo pro¬ 
grammi di ogni genere per 
Apple. Inviate la vostra li¬ 
sta, risponderò conia mia. 
Domenico De Simone, 
Via Vado di Sole 6, 65100 
Pescara Colli. 

* 

fJCambio/vendo pro¬ 
grammi per Apple com¬ 
pleti di manuale. Vastissi¬ 
ma scelta. Claudio Oggio- 
ni, Via Gonzales 4, 20139 
Milano. Tel. 02/5397867. 



Le soluzioni 
non sono 
tutte uguali. 


P er il vostro pro¬ 
blema gestionale 
da noi troverete la 
soluzione APPLE 
e uomini pronti a 
collaborare con 
voi giorno 
dopo giorno. 



Corso Duca degli Abruzzi, 14 - 10128 Torino 
Tel. 011/535443 (3 linee) 


Écippkz computer 
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Listati senza fatica 

I programmi pubblicati su Applicando possono es¬ 
sere trascritti dai lettori e salvati su dischetto. Ma la 
trascrizione è lenta e noiosa. Chi lo desidera può 
richiederci i dischetti sotto indicati, già pronti. Chi 
desiderasse anche il dischetto con i programmi 
STATISTICHE, SCANNER e FIGURATI UN PO’ può 
ottenerlo gratis. Abbonandosi ad Applicando. 


★ AP4/N07. Dischetto con i programmi 
LETTURA SPRINT in versione italiana e 
LETTURA SPRINT con frasi in inglese 
(pag. 26), ROMPIQUINDICI (pag. 47), 
TASTIERINO FANTASMA (pag. 73), e 
ROUTINE DI INPUT (pag. 76). Lire 
30.000 (Abbonati Lire 25.000). 

AP4/A08. Dischetto dati VisiDex BAN¬ 
CA DATI APPLE (pag. 41 ). Occorre Visi¬ 
Dex. Lire 30.000 (Abbonati Lire 25.000). 


AP4/A09. Dischetto Pascal (occorre 
Language Card o Apple Ile) con i pro¬ 
grammi ORGANO, VIOLINO, PIANO¬ 
FORTE (pag. 21). Lire 30.000 (Abbonati 
Lire 25.000). 

★ AP3/IN05. Dischetto con i programmi 
SISTEMA BASE (pag. 14), ETICHETTE 
(pag. 36), CONTRATTI (pag. 58), DADI E 
PUNTI (pag. 67) e GRAN CATALOGO 
(pag. 82). Lire 30.000 (Abbonati Lire 
25.000). 

AP3/A06. Dischetto dati VisiCalc EQUO 
CANONE (pag. 44). Occorre VisiCalc. 
Lire 25.000 (Abbonati Lire 20.000). 

k AP1/I02. Dischetto con i programmi 
PROFITTI PER FAVORE (pag. 38), CA¬ 
LENDARIO PERPETUO (pag. 54), e I 
TRONCHI DEL TESORO (pag. 66). Lire 
30.000 (Abbonati Lire 25.000). 

AP6/N11. Dischetto con il programma: 
STRESS (pag. 45). Lire 55.000 (Abbona¬ 
ti lire 45.000). 


★ AP1/N03. Dischetto con i programmi 
ELIMINATORE DI DOS (pag. 28), ORO¬ 
LOGIO (pag. 44), e PRONTI PUNTARE 
FUOCO! (pag. 46). Lire 30.000 (Abbonati 
Lire 25.000). 

k AP2/IN04. Dischetto con i programmi 
COSTI CHILOMETRICI (pag. 14), RI¬ 
CHIAMA FIGURE (pag. 44), LASER NEL¬ 
LO SPAZIO (pag. 46), e CURVE DI 
PRESSIONE (pag. 57). Lire 30.000 (Ab¬ 
bonati Lire 25.000). 

★ AP5/N09. Dischetto con i programmi 
AGENDA PERSONALE (pag. 23), DUEL¬ 
LO D’ARTIGLIERIA (pag. 30), MELE E 
FRECCETTE (pag. 63). Lire 30.000 (Ab¬ 
bonati Lire 25.000). 

AP5/N08. Dischetto con il programma 
INVESTOR (pag. 34) Lire 70.000 (Abbo¬ 
nati Lire 60.000). 

★ AP6/N10. Dischetto con i program¬ 
mi: OBBLIGAZIONI - BOND MANAGER 
(pag. 27) PUCMAN - NIBBLER (pag. 39) 
e LINEFINDER (pag. 55). Lire 30.000 (ab¬ 
bonati lire 25.000). 

★ AP7/N12. Dischetto con i program¬ 
mi: APPLE PITTORE (pag. 18), OTTO¬ 
VOLANTE (pag. 27), DISK-BLOCK (pag. 
33), ARCHIVIO PER APPLE (pag. 35), 
DISCOTECA (pag. 59), AIUTO (pag. 74). 
Lire 30.000 (Abbonati lire 25.000). 

★ I dischetti contrassegnati con asterisco 
contengono anche il programma TOMBOLA, 
omaggio natalizio di Applicando e di Compu- 
shop, Via Nomentana 265-273. Roma. 




Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Monforte 39, 20122 Milano 


Vogliate inviarmi i seguenti dischetti: 


Cognome 


Nome 



Via...Cap., 

Città.Prov.i 

i 

Scelgo la seguente formula di pagamento: < 

□ allego assegno di L .non trasferibile intestato a Editronica srl. 1 

□ allego ricevuta versamento di L.sul cc/p n. 19740208 intestato a ! 

Editronica srl - Corso Monforte, 39 - 20122 Milano [ 

□ pago fin d’ora l’importo di L.con la mia carta t 

i 

di credito BankAmericard N.... i 

i 

scadenza.autorizzando la Banca i 

d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. | 

V I j 
\l / 


Sono abbonato: sì □ no □ 


Data 


Firma 







































cot&P 


da jvostr° 


Sistema Polaroid Pialette 
per diapositive immediate 35 mm. 


r*Per ulteriori informazioni spedite 
questo tagliando a: 

POLAROID (Italia) S.pA AP-84 


Divisione Prodotti Industriali e 
Professionali 

Via Piave, 11 - 21051 ARCISATE (Varese) 


Tel. 0332/470031 



Il sistema Polaroid Palette è stato concepito come unità periferica peri più diffusi personal computers. 
Istogrammi, grafici, ed ogni altro tipo di elaborato può essere facilmente riprodotto nelle tonalità più sature e 
brillanti, grazie ad una scala cromatica di ben 72 colori. Il tutto in tempo reale, operando sia con schermo mono¬ 
cromo che a colori. 

Il sistema Polaroid Palette utilizza, infatti, il segnale di uscita del computer stesso e consente elabora¬ 
zioni fotografiche a colori sia su positivo (hard copy) che in diapositiva Polaroid 35 mm. 

Il sistema minimizza quindi la retinatura dello schermo, per una riproduzione fotografica accurata e 

definita. 


Il sistema Polaroid Palette è uno strumento di lavo¬ 
ro per operatori di marketing, per ricercatori, per tutti coloro 
che necessitano di un adeguato supporto visivo alle loro 
presentazioni. 

"Polaroid" è un marchio registrato della Polaroid Corporation, Cambridge, Mass. 


Polaroid 


USA. Polaroid 1984 



































Il valore di ogni Flexible Disc è il risultato della 
integrazione tra il dischetto ed il suo contenuto. 


Il contenuto è il prodotto della vostra intelligenza, del vostro la¬ 
voro, del vostro tempo. 

Il contenuto sono i dati che servono per informarvi sull’anda¬ 
mento della vostra Azienda e per permettervi di gestirla, che ren¬ 
dono fluide le procedure del vostro ufficio, che riempiono di se¬ 
renità e di divertimento il vostro tempo libero. 

Con Memorex il contenuto del vostro Flexible Disc, sia da 8” che 
da 5” 1/4, o da 3” 1/2 è . protetto dalla tecnologia che è frutto 
di più di 25 anni di sviluppo sia dei prodotti magnetici che delle 
tecniche di registrazione e che ha permesso di raggiungere livel¬ 
li altissimi di affidabilità, durata ed uniformità della produzione. 




È importante, scegli Memorex 


Via Ciro Menotti, 14-20129 Milano - Telefono: 02/718551 




























































